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PREFACE 


Today,  with  all  of  the  advances  in  computer  hardware  and  software, 
learning  assembly  language  remains  a  challenging  endeavor.  Assembly  is 
a  highly  complex  language  requiring  more  active  programming  skills  than 
do,  say,  high-level  languages.  Only  after  an  assembly  course  does  a  stu- 
dent start  fully  to  appreciate  high-level  languages  (and  also  to  note  some 
of  the  shortcomings  of  high-level  languages).  Even  more  important,  a 
course  in  assembly  gives  students  a  better  understanding  of  what  takes 
place  inside  a  computer. 

There  are  many  differences  between  a  high-level  language  and  an 
assembly  language.  Each  statement  in  a  high-level  language  represents 
a  sequence  of  computer  instructions  that  a  person  can  read.  In  addition, 
the  programmer  here  need  not  be  concerned  with  some  of  the  specific, 
highly  detailed  aspects  of  the  computer  hardware.  In  assembly  language, 
however,  the  programmer  must  be  aware  of  these  complex  details,  which 
in  turn  allows  the  programmer  more  control  of  the  computer.  Assembly 
programming  also  demands  that  each  operation  be  thought  of  as  a  simple, 
isolated  step  rather  than  as  part  of  a  sequence  of  steps. 

I  feel  that  a  student's  first  course  in  assembly  should  not  be  comparative 
but  that  it  should  deal  instead  only  with  a  specific  assembly.  The  choice 
of  which  particular  assembly  language  to  use  will  depend  on  what  hard- 
ware is  available  to  the  student.  At  La  Salle  College  we  have  a  number 
of  different  computers,  but  I  feel  it  is  best  to  teach  the  students  decsys- 
tem-20  assembly  because  it  is  a  very  complete  assembly;  it  contains  many 
features  that  are  not  present  in  other  assemblers.  Because  of  the  richness 
of  the  decsystem-20  assembly,  students  subsequently  have  very  few 
problems  in  future  courses  that  deal  with  microprocessor  assembly  (Z80, 
6800,  etc.). 


The  real  challenge  in  most  problems  assigned  to  computer  students  lies 
not  in  the  nature  of  the  answer  but  in  how  to  achieve  that  answer.  In 
other  words,  challenge  lies  in  designing  a  method,  an  algorithm,  that  will 
produce  an  expected  result.  The  computer's  fast  turn-around  time  and 
helpful  messages  assist  students  in  this  endeavor.  Students  can  learn  from 
their  mistakes  and  are  motivated  to  correct  them.  Because  of  these 
encouragements  I  strongly  believe  in  hands-on  experience.  Therefore,  I 
have  arranged  topics  and  programs  in  such  a  way  that  a  student  will  be 
able  to  use  the  computer  as  soon  as  possible.  This  may  make  the  initial 
chapter  a  little  oversimplified,  but  it  does  afford  the  student  the  oppor- 
tunity to  start  programming  after  only  a  few  lectures. 

Rather  than  starting  off  with  a  discussion  of  machine  code,  this  text 
deals  first  with  single-character  operations.  There  are  two  reasons  for 
this  arrangement:  first,  I  feel  that  the  single  character  (byte)  and  its 
encoding  (ASCII)  is  the  fundamental  entity  of  assembly,  and  that  therefore 
this  should  be  dealt  with  as  soon  as  possible;  second,  computers  do  not 
work  in  decimal — therefore  students  must  learn  a  new  radix.  By  post- 
poning a  study  of  machine  code,  students  can  first  learn  enough  about 
assembly  so  that  they  can  write  simple  assembly  programs  (homework 
assignments)  that  convert  numbers  from  one  radix  to  another.  These  pro- 
grams will  help  students  later  on  when  they  study  machine  code;  it  will 
also  help  them  with  exercises  that  require  them  to  code  radix  conversions 
by  hand. 

This  text  has  two  parts.  The  first  seven  chapters  introduce  the  student 
to  some  basic  concepts  in  assembly:  terminal  input/output;  jumps;  addressing 
modes;  numbers,  radices,  and  bits;  logical  operators  and  shifts;  transfer- 
ring data  using  pointers.  I  have  purposely  delayed  discussing  those  facil- 
ities that  would  switch  the  burden  of  programming  from  the  student  to 
the  computer  (e.g.,  macros)  so  as  to  ensure  that  the  student  first  under- 
stands fundamentals.  I  have  also  demonstrated  how  many  of  the  sophis- 
ticated JSYS  (e.g.,  input/output)  can  be  simulated  by  more  primitive  calls. 
By  the  end  of  Chapter  7,  students  should  have  a  good  command  of  basic 
assembly  concepts,  many  of  which  will  be  transportable  to  other  assem- 
blers, especially  microcomputer  assemblers. 

The  last  four  chapters  deal  with  concepts  with  which  the  student  is 
supposed  to  be  familiar — stacks  and  subroutines  (Chapter  8),  files  (Chap- 
ter 10),  and  interrupts  (Chapter  11) — with  Chapter  9  given  over  to  macros. 
The  emphasis  in  these  chapters  is  not  on  teaching  these  concepts  but 
rather  on  showing  how  they  are  to  be  implemented  in  assembly.  For  instance, 
in  the  chapter  dealing  with  files  I  supply  some  macros,  but  students  will 


also  be  expected  to  write  their  own  for  two  reasons:  first,  students  can 
always  use  good,  practical  exercises  dealing  with  macros;  second,  writing 
all  the  basic  steps  necessary  for  file  operations  helps  the  student  to  under- 
stand files  better. 

This  is  a  learning  text  rather  than  a  reference  book.  But,  so  as  to  help 
the  reader  seeking  to  use  this  as  a  reference  book,  I  have  included  a 
number  of  appendices  to  allow  for  easy  access  to  definitions. 

There  were  many  individuals  who  helped  me  with  this  text.  I  would 
like  to  acknowledge  Hal  Dell  as  well  as  the  many  students  who  used  the 
preliminary  version  of  the  book,  with  special  thanks  to  Rick  Smith.  I 
would  like  to  thank  the  people  who  reviewed  the  manuscript:  Carl  Fussell 
of  the  University  of  Santa  Clara,  Ralph  E.  Gorin  of  Stanford  University, 
and  Charles  M.  Shub.  Of  course,  those  who  have  suffered  through  writing 
a  text  know  the  contribution  a  wife  makes — thank  you  Janice! 

Stephen  A.  Longo 
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CHAPTER 

1 


Introduction  to  Assembly 


This  chapter  provides  a  bird's-eye  view  of  assembly  language  as  prepa- 
ration for  the  chapters  that  follow.  The  discussion  assumes  that  you  are 
familiar  with  a  high-level  language  like  basic  or  Fortran  and  introduces 
you  to  the  similarities  and  differences  between  these  languages  and  assembly 
language.  The  analogous  elements  of  the  two  types  of  languages  offer 
helpful  starting  points;  you  will  also  find,  however,  that  assembly  lan- 
guage is  more  complex,  requiring  more  active  programming  skills  than 
do  high-level  languages.  By  the  end  of  this  chapter,  the  bare  outlines  of 
assembly  programming  will  have  begun  to  emerge. 


1.1  Assembly  versus  High-Level  Languages 

The  computer's  three  main  parts  are  the  control,  input/output  (I/O),  and 
the  memory.  The  memory  stores  information  as  an  ordered  set  of  loca- 
tions. It  is  analogous  to  rows  of  boxes  in  which  each  box  has  an  address 
(the  boxes  are  numbered),  and  in  which  you  can  place  numbers  and  retrieve 
them  as  you  need  them  (Figure  1-1). 
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address  15  16  17 

Figure  1-1    Memory  Locations  (Addresses)  and  Memory  Contents 

Let  us  look  at  how  a  translator  (compiler,  interpreter)  of  a  high-level 
language  uses  memory.  Consider  the  statement  1  =  3,  which  assigns  a 
value  of  3  to  the  variable  I.  The  computer  must  pick  a  memory  location 
(a  box),  place  the  3  in  the  location,  and  remember  that  the  name  of  the 
location  is  now  I.  To  help  it  find  the  box  I  more  easily,  the  computer 
constructs  a  table  (symbol  table)  in  which  it  writes  the  symbol  I  accom- 
panied by  the  box  number.  The  next  time  the  computer  needs  the  infor- 
mation represented  by  I,  it  goes  to  the  symbol  table,  finds  the  I,  reads 
the  memory  location  (the  box  number),  goes  to  that  location,  and  looks  in 
that  box. 

1  =  3  I       54  3 


statement        symbol  table        address  54 

To  avoid  multiple  definitions  (assigning  the  same  name  to  more  than  one 
box),  the  translator  checks  the  symbol  table  every  time  it  encounters  a 
variable.  If  the  symbol  is  not  in  the  table,  the  translator  adds  it.  If  the 
symbol  is  already  there,  the  translator  uses  the  previously  defined  location. 

In  general,  one  line  in  a  high-level  language  causes  the  computer  to  do 
more  than  one  operation.  The  simple  statement  1  =  3  does  two  things, 
for  example.  It  assigns  a  name,  I,  to  a  location,  and  it  places  a  value,  3, 
in  that  location.  In  assembly  language,  however,  each  line  of  code  causes 
one  operation  only  and  does  not  contain  any  hidden  cues  to  perform  other 
operations.  Thus,  a  statement  in  high-level  language  is  essentially  made 
up  of  a  number  of  assembly  language  statements. 

Let  us  now  consider  the  statement  J  =  I  +  K,  which  assigns  to  the 
variable  J  the  value  of  the  sum  of  the  variables  I  and  K.  Where  does  the 
computer  perform  addition?  How  do  the  memory  locations  interact  with 
each  other?  To  answer  such  questions,  we  need  to  look  further  at  how  the 
memory  works.  A  computer  has  many  memory  locations  (thousands,  mil- 
lions). For  every  memory  location  to  be  able  to  communicate  directly  with 
every  other  location,  the  memory  works  something  like  a  telephone  sys- 
tem. Clearly,  it  is  not  practical  to  have  a  separate  telephone  wire  from 
your  house  to  every  location  you  call;  instead  one  wire  goes  from  your 
house  to  a  switching  station,  which  acts  as  a  central  connecting  point. 
When  you  want  to  talk  to  a  friend,  the  switching  station  connects  your 
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line  to  your  friend's  line;  it  essentially  takes  your  information  and  routes 
it  to  your  friend  (Figure  1-2).  This  preferred  connection  (switching  sta- 
tion) eliminates  many  costly,  cumbersome  interconnections  though  it  has 
its  own  cost:  busy  signals  when  connections  are  unavailable.  Similarly, 
computers  do  not  tie  memory  locations  directly  to  each  other  but  to  pre- 
ferred locations  called  accumulators.  In  general,  then,  the  memory  loca- 
tions just  hold  information  (numbers)  and  interact  only  through  accumu- 
lators. The  accumulators,  on  the  other  hand,  can  interact  with  any  part 
of  the  computer,  can  hold  information,  and  can  operate  on  (change)  infor- 
mation. Computers  differ  in  the  number  of  accumulators  they  have  and  in 
the  operations  that  the  accumulators  can  perform.  The  decsystem-20  has 
16  accumulators. 


phi 


phone  phone  Phone  Phone 


Figure  1-2   Telephone  Interconnection  Models 

With  this  new  information  on  accumulators,  we  can  again  look  at  the 
statement  J  =  I  +  K.  This  statement  requires  the  operation  of  addition. 
Since  the  accumulator  is  an  integral  part  of  such  operations,  we  must  first 
copy  (move)  the  contents  of  memory  location  I  to  an  accumulator.  Next, 
we  add  the  contents  of  memory  location  K  to  the  accumulator.  Finally,  we 
must  copy  (movem)  the  contents  of  the  accumulator  to  the  memory  loca- 
tion J. 


INTRODUCTION  TO  ASSEMBLY  3 


J  =  I  +  K 


5  =  3  +  2 

Accumulator  Memory/Content 
MOVE  1/3 

3  <  

ADD  K/2 

5  <  

MOVEM 

5   ►  J/5 

Thus,  the  simple  statement  I  =  J  +  K  in  a  high-level  language  in  effect 
represents  several  lines  of  assembly  code,  with  each  line  of  code  repre- 
senting one  step  for  the  computer.  Because  assembly  language  works  with 
the  fundamental  locations  of  information  (memory  and  accumulators),  users 
are  responsible  for  more  bookkeeping  than  they  would  be  in  a  high-level 
language. 

1.2  Constructing  Statements 

Statements  in  high-level  languages  generally  take  the  following  form: 
label       variable      assignment  expression 
For  example, 

300  I  =  J  +  K 

On  the  other  hand,  a  statement  line  in  assembly  can  have  this  form: 

label      opcode      operand,  operand 

The  label,  if  used,  is  the  first  thing  on  the  line  in  both  high-level  and 
assembly  languages.  Labels  are  very  important  because  they  allow  for 
the  nonsequential  flow  of  a  program.  (The  program  need  not  progress 
according  to  the  physical  progression  of  lines;  a  program  can  loop  back  or 
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forward  as  necessary,  using  the  labels  as  reference  points.)  In  high-level 
languages  like  basic  that  require  line  numbering,  the  line  numbers  are 
the  labels.  Those  languages  that  don't  require  line  numbering  may  restrict 
the  form  of  the  label  (for  example,  by  specifying  numbers  only)  or  possibly 
specify  the  position  (for  example,  by  limiting  the  label  to  certain  columns). 

Assembly  language  uses  labels  and  generally  allows  almost  any  char- 
acter and  any  number  of  characters  in  forming  a  label,  decsystem-20 
labels  have  very  few  restrictions,  other  than  that  they  must  end  with  a 
colon  (:). 

The  expression  part  of  a  high-level  language  statement  can  contain 
more  than  one  computer  operation  (I  *  J  +  K),  whereas  assembly  lan- 
guage allows  only  one  operation  per  statement.  The  opcode  symbol  in  the 
assembly  statement  represents  the  operation.  Examples  of  opcodes  are 
MOVE  and  ADD.  The  variables  in  the  operation  are  the  operands.  Assem- 
bly languages  differ  in  the  number  of  operands  they  allow  per  line.  Most 
computers  with  more  than  one  accumulator  use  two  operands  per  line. 
Some  microcomputers  use  only  one  operand,  and  some  stack-oriented 
systems  have  no  operands.  Since  operations  generally  require  accumu- 
lators, one  operand  must  be  an  accumulator.  Thus,  a  decsystem-20  assembly 
statement  line  has  the  following  form: 

label:      opcode      ac,  operand 

The  comma  after  the  accumulator  is  important.  Just  as  the  colon  identifies 
the  preceding  symbol  as  a  label,  the  comma  identifies  the  preceding  sym- 
bol as  an  accumulator.  (Note:  Some  decsystem-20  assembly  opcodes  do 
not  appear  to  reference  an  accumulator — for  example,  set  to  zero  a  mem- 
ory location,  or  setz  memory).  The  decsystem-20's  16  accumulators  are 
numbered  starting  with  zero  (0).  If  an  assembly  statement  does  not  ref- 
erence an  accumulator — that  is,  it  has  no  comma — then  the  translator 
assumes  accumulator  0.  Because  accumulator  0  requires  different  treat- 
ment from  other  accumulators,  beginning  assembly  programmers  should 
generally  avoid  using  it. 

The  decsystem-20  also  uses  spaces  and/or  tabs  as  delimiters  (charac- 
ters that  separate  symbols  within  the  fine).  The  space  or  tab  separates 
the  opcode  and  the  accumulator.  The  decsystem-20  also  allows  on-line 
comments  (they  are  generally  necessary).  A  semicolon  signifies  that  a 
comment  follows.  A  complete  decsystem-20  statement  is  composed  of 
five  fields:  label,  opcode,  accumulator,  operand,  and  comment.  A  state- 
ment, then,  will  take  the  form: 

label:      opcode      ac,      operand  jcomment 
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A  computer  scans  (reads)  a  line  character  by  character,  starting  at  the 
beginning  of  the  line  and  constructing  the  fields.  The  delimiters  inform 
the  computer  when  to  start  and/or  stop  a  field.  The  computer  ignores 
leading  spaces  and  tabs  and  reads  the  first  nonspace  or  nontab  as  the  first 
symbol.  The  trailing  delimiter  identifies  the  field  represented  by  the  sym- 
bol. When  the  computer  reads  a  colon,  it  identifies  the  previous  symbol 
as  a  label  and  begins  to  construct  the  next  symbol  when  it  reads  the  next 
nonspace  or  nontab.  This  form  of  scanning  allows  the  label  field  to  have 
more  than  one  label  because  the  label  field  does  not  end  until  the  computer 
reads  a  symbol  not  delimited  by  a  colon.  For  example: 

labell:      label2:      opcode  .  .  . 

Once  the  label  field  closes — that  is,  the  system  constructs  another  symbol 
that  ends  with  a  space  or  tab — a  new  symbol  will  most  probably  be  an 
opcode.  Once  the  opcode  field  closes,  the  system  starts  the  next  field,  and 
so  on.  The  computer  continues  to  ignore  leading  spaces  and  tabs  and  does 
not  start  the  next  symbol  until  it  finds  a  nonspace  or  nontab.  If  a  symbol 
ends  with  a  comma,  then  it  is  an  accumulator;  if  it  ends  with  a  space  or 
tab,  then  the  field  is  an  operand.  In  most  cases,  if  the  system  reads  a 
semicolon  or  a  carriage  return,  it  stops  scanning  the  line. 

1.3  Simple  Assembly  Programs 

The  computer  (interpreter/compiler)  reads  programs  written  in  a  high- 
level  language  and  converts  them  into  a  specific  language  (machine  code). 
The  computer  then  uses  the  machine  language  to  execute  the  program. 
Statements  can  generate  executable  and  nonexecutable  code. 

A  data  line  is  an  example  of  a  high-level  statement  that  does  not  gen- 
erate executable  code.  A  data  line  requests  that  values  be  placed  in  loca- 
tions for  use  at  run  (execution)  time.  Another  example  is  a  dimension 
statement,  which  warns  the  computer  to  set  aside  contiguous  memory. 
In  high-level  languages,  nonexecutable  statements  generally  have  a  spe- 
cific position  in  the  beginning  of  a  program;  if  these  statements  appear  in 
the  body  of  the  program,  a  computer  error  can  result. 

Assembly  language  also  has  executable  and  nonexecutable  statements, 
which  must  be  separated  to  avoid  errors.  As  in  high-level  languages, 
assembly  comments,  though  nonexecutable,  can  appear  anywhere  in  your 
program.  The  simple  label  statement  I:  3  is  an  example  of  a  nonexecutable 
statement  in  assembly  language.  This  statement  identifies  a  location,  this 
particular  line,  as  I,  which  in  this  location  is  a  3.  The  computer  does  not 
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treat  the  3  as  an  opcode  in  this  situation:  if  only  one  field  exists  and  it 
could  be  an  opcode,  an  ac,  or  an  operand,  then  the  computer  treats  the 
field  as  an  operand.  In  other  words,  if  an  opcode  has  nothing  to  operate 
on,  then  it  ceases  to  be  an  opcode  and  defaults  to  an  operand. 

All  symbols,  like  opcodes,  operands  and  labels,  must  be  represented  in 
the  computer  memory  as  unique  numbers.  This  conversion  is  the  respon- 
sibility of  the  assembly  program,  also  referred  to  as  the  assembler.  (The 
assembler  is  comparable  to  the  compiler  or  interpreter  that  scans  state- 
ments in  high-level  languages.)  The  assembler  first  scans  an  assembly 
program  and  generates  machine  code.  If  the  scanned  line  has  an  opcode, 
the  code  generated  is  executable  and  is  placed  in  (sequential)  memory 
location.  If  the  scanned  line  has  no  opcode  the  code  generated  becomes 
nonexecutable.  The  (relative)  address  of  the  memory  location  presently 
being  filled  is  kept  in  a  register  called  the  location  counter.  As  each  word 
is  placed  in  memory  the  location  counter  is  incremented.  When  a  label  is 
used,  like  I:  3,  the  symbol,  I,  is  assigned  the  present  value  of  the  location 
counter  and  is  placed  in  the  symbol  table. 

1003 

1004  1:3  I  1004 

1005 

location  counter      program      symbol  table 

Location  1004  here  now  contains  a  3.  When  the  I  appears  in  a  nonlabel 
field  the  translator  will  search  the  symbol  table  and  replace  the  I  with  its 
original  location  counter  value. 

A  coded  program  by  itself,  essentially  a  dump  of  memory,  shows  no 
distinction  between  data  and  instructions  and  gives  no  indication  where 
the  program  starts  or  stops.  The  assembly  programmer  (you)  must  inform 
the  computer  where  the  program  ends  and  where  the  executable  part 
begins  by  labeling  the  first  executable  statement  and  placing  the  word 
end  after  the  last  line  of  the  program.  The  symbol  on  the  line  with  the 
word  end  labels  the  first  executable  line.  Nonexecutable  lines  can  appear 
after  the  executable  lines  as  long  as  the  computer  can  avoid  these  lines 
during  execution.  High-level  languages  use  a  stop  or  GOTO  end  for  this 
purpose;  in  assembly,  exit  serves  the  same  purpose  (we  will  discuss  a 
better  choice  later).  An  assembly  program  then  has  this  structure: 
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nonexecutable 
start:  executable 
EXIT 

nonexecutable 
END  start 


The  label  start  is  not  a  reserved  word  like  end;  any  label  can  appear  in 
its  place.  A  stop  symbol,  like  exit,  is  necessary  in  all  assembly  programs. 
Also,  the  information  in  an  assembly  statement,  as  in  a  high-level  lan- 
guage statement,  normally  flows  from  right  to  left.  One  exception  is  the 
trailing  M  in  the  opcode  movem,  which  changes  the  flow  of  information  to 
left  to  right. 

A  sample  assembly  program  similar  to  J  =  I  +  K  follows. 


EXAMPLE   1.   ADDING  TWO  NUMBERS 


START: 


I  :  3 
K  :  2 
J:  0 
MOVE  1  1 1 
ADD  1  »K 
MOVEM  1 .J 
EXIT 

END  START 


;  i  =  3 
;k  =  2 

?  s  a  u  e   a  spot   called  J 
ittiowe   contents   of   I   to  ac 
i  a  d  d   to   ac    1    the  contents 
Jmove   contents   of   ac    1  to 


1 

of 
J 


The  answer,  5,  is  in  location  J.  To  see  the  answer,  we  need  i/o  routines, 
which  we  will  discuss  in  Chapter  2. 

1.4  Summary 

One  of  the  main  differences  between  assembly  programming  and  high- 
level  language  programming  is  that  the  assembly  program  has  to  contain 
within  it  some  understanding  of  the  basic  interaction  between  a  program 
and  memory.  The  basic  operations  in  assembly  involve  addressing  data 
via  memory  locations,  which  themselves  interact  only  through  central 
accumulators.  Each  operation  on  the  data  must  be  thought  of  in  terms  of 
simple  steps,  for  each  line  of  code  causes  one  operation  alone  to  be  per- 
formed rather  than  a  succession  of  operations.  This  is  similar  to  con- 
structing English  sentences  gradually  with  only  simple  subjects,  verbs, 
and  occasional  objects. 
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CHAPTER 

2 


Terminal  Input/Output 


The  I/O  section  of  the  computer  is  the  computer's  link  to  the  outside  world — 
to  the  terminal,  discs,  other  programs,  and  so  on.  Thus,  if  you  wish  infor- 
mation to  go  to  or  come  from  the  computer,  it  must  pass  through  the 
computer's  representative,  the  i/o  device.  Because  the  I/O  section  can  deal 
with  only  one  character  at  a  time,  all  data  exchange  must  be  in  the  form 
of  simple  characters.  (There  are  more  sophisticated  methods  that  we  will 
not  discuss  here.)  I/O  programs  help  you  break  down  data  into  single- 
character  elements.  We  will  discuss  terminal  I/O  in  this  chapter. 


2.1  Building  Blocks  for  Input/Output 

If  you  were  to  look  at  text  written  in  characters  unfamiliar  to  you,  like 
Chinese  or  Arabic,  you  would  need  someone  to  translate  the  characters 
into  symbols  you  understand.  Computers  are  similar;  they  deal  only  with 
numbers.  If  you  want  them  to  deal  with  letters,  you  must  translate  (code) 
the  letters  into  numerals.  In  fact,  when  you  write  a  program,  you  are  not 
dealing  so  much  with  letters  or  numerals  as  with  symbols;  these  symbols 
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have  no  inherent  meaning  other  than  that  they  are  different  from  each 
other.  For  instance,  the  letters  xse  undoubtedly  affect  you  differently  than 
the  letters  sex.  The  arrangement  of  the  letters  and  your  previous  expe- 
rience with  the  arrangement  give  them  meaning. 

Programming  allows  you  to  develop  the  same  range  of  meaning  with 
numbers.  You  probably  see  any  arrangement  of  numerals  as  a  new  num- 
ber. For  example,  you  probably  read  123  as  one  hundred  twenty-three.  If 
so,  you  are  assuming  a  base  10  structure  and  assigning  meaning  to  the 
positions  of  the  symbols  (1  times  100,  plus  2  times  10,  plus  3).  However, 
computers  assume  nothing;  you  must  tell  them  everything.  To  the  com- 
puter, 123  has  no  more  meaning  than  xse.  When  you  program  the  com- 
puter, however,  you  give  meaning  to  a  group  of  characters. 

You  must  assign  a  code  (a  numeral)  to  every  character  (letter  and  numeral) 
you  want  the  computer  to  use.  The  most  common  code  is  ASCII,  the  Amer- 
ican Standard  Code  for  Information  Interchange.  For  example,  assuming 
base  10,  ascii  assigns  A  the  value  65  and  1  the  value  49.  The  I/O  device 
(buffer)  works  with  the  ASCII  value  of  each  character. 

When  you  press  a  key  on  a  terminal,  the  terminal  generates  the  ASCII 
value  of  the  key  and  sends  that  code  to  the  computer's  input  buffer.  The 
computer  does  not  read  123  as  one  hundred  twenty-three.  The  terminal 
sends  the  computer  the  ASCII  code  for  a  1,  then  the  code  for  a  2,  and 
finally  the  code  for  a  3.  When  the  terminal  acts  as  an  output  device  (printer) 
it  expects  the  characters  it  receives  to  be  in  ascii  code.  Therefore  the 
computer  must  strip  down  a  number  to  its  individual  characters  to  send 
it  to  the  terminal.  It  sends  the  ascii  value  of  a  1  to  the  output  buffer, 
then  the  value  of  a  2,  and  so  on.  The  need  for  programs  that  will  assist  in 
I/O  operations  is  obvious. 

2.2  Monitor  Calls 

Eventually  you  will  write  I/O  routines,  but  for  now  we  will  focus  on  the 
standard  (canned)  routines  supplied  with  the  decsystem-20.  These  rou- 
tines are  in  the  monitor,  and  you  can  access  them  via  a  symbol  table  in  a 
file  called  monsym  (MONitor  SYMbols).  The  monitor  is  a  management  and 
protection  system  that  aids  users  in  I/O  work.  In  a  time-sharing  environ- 
ment, the  I/O  may  link  the  computer  to  other  users  or  even  to  operating 
system  programs.  The  monitor  via  monsym  helps  coordinate  I/O  requests 
and  shows  whether  users'  requests  interfere  with  existing  requests. 

No  matter  how  fancy  the  monitor's  I/O  routines  are,  they  must  still  deal 
with  the  single-character  I/O  buffer.  The  fundamental  building  blocks  of 
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all  terminal  I/O  are  the  monitor  calls  pbin%  and  pbout%,  primary  (ter- 
minal) Byte  (character)  in  and  out.  These  calls  are  also  known  as  jsys, 
(Jump  to  SYStem).  (The  jsys  routine  of  the  decsystem-20  is  one  main 
difference  between  it  and  the  decsystem-10.)  A  pbout%  is  necessary  if 
a  program  is  to  send  a  character  to  the  terminal.  The  ASCII  equivalent  of 
the  character  must  be  placed  in  accumulator  1  and  then  PBOUT%ed.  The 
pbout%  takes  the  character  from  accumulator  1  and  passes  it  to  the  I/O 
buffer,  which  in  turn  sends  it  to  the  terminal. 

A  pbin%  is  necessary  if  the  program  requires  a  character  during  run 
time.  When  the  system  executes  the  pbin%,  it  waits  for  a  keyboard  char- 
acter. When  a  key  is  pressed,  the  program  accepts  the  character  and 
continues.  The  ASCII  value  of  the  character  is  in  accumulator  1.  (Note: 
Only  a  few  monitor  symbols  require  the  trailing  %.  This  text  recommends 
its  use  to  make  monitor  calls  stand  out.) 

Let  us  write  a  program  that  will  accept  a  character  from  the  terminal 
and  return  the  next  sequential  character — for  example,  the  user  types  in 
an  A  and  the  computer  sends  back  a  B,  or  the  user  types  in  a  3  and  receives 
back  a  4.  The  symbols  pbin%  and  pboutc  are  in  the  program,  but  we  will 
not  define  them  there  since  the  file  monsym  has  access  to  their  definitions. 
The  assembler,  the  program  that  converts  mnemonics  (move,  add)  into 
code,  understands  opcodes  and  some  other  symbols  (for  example,  end). 
It  can  handle  symbols  (labels)  defined  within  the  program  by  constructing 
a  symbol  table.  However,  the  computer  will  not  know  the  meaning  of 
pbin%  or  any  monitor  call  unless  we  give  it  the  directive  search.  Thus, 
when  the  assembler  cannot  find  a  symbol  in  the  program  table,  it  knows 
to  look  in  those  tables  following  the  directive  search.  (Note:  It  is  a  good 
habit  to  title  a  program  by  title  followed  by  a  user-assigned  name.  Only 
the  first  six  characters  of  the  name  have  meaning.  Also,  for  the  decsys- 
tem-20,  the  preferred  way  to  stop  the  execution  of  a  program  is  the 
monitor  call  haltf<*  rather  than  exit,  which  is  primarily  a  decsys- 
tem-10  call. 

In  the  format  of  an  assembly  program  it  is  customary  (though  not  nec- 
essary) to  place  labels  at  the  beginning  of  a  line  and  then  tab  to  the  opcode 
field.  If  there  are  no  labels,  you  will  still  tab  to  the  opcode  field. 
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I 


TITLE  EXAMPLE 
SEARCH  MONSYM 
1 


STARTrPBIN'Z 

ADD   1  1 1 
PBOUfX 
HALTFX 
END  START 


5this   will    be    referred   to   as  EXAMPL 
i needed   for   in  ere  men  tin  3 
iset   a  character 

!add   one   to   the   ASCII    value    in    ac  1 
jsend   character   to   the  terminal 
istop  execution 


In  the  above  program,  the  original  character  came  from  the  terminal  and 
was  thus  already  in  ASCII.  The  program  instructed  the  computer  to  add 
1  to  the  ASCII  and  then  sent  that  value  back  to  the  terminal. 

Some  beginners  might  misread  the  statement  add  i,  i  as  instructing 
the  computer  to  add  1  to  I.  However,  the  comma  following  the  1  is  a  clue 
that  it  is  an  accumulator.  As  in  high-level  languages,  the  normal  flow  of 
a  statement  is  from  right  to  left.  Thus,  the  statement  tells  the  computer 
to  add  the  contents  of  I  to  the  contents  of  accumulator  1.  Another  assem- 
bly directive,  an  assignment  symbol  (  =  ),  may  help  in  this  type  of  state- 
ment. For  example,  the  statement  Ti  =  l  (no  spaces  and  tabs  on  either 
side  of  the  equals  sign)  tells  the  computer  to  place  the  symbol  Ti  and  its 
meaning,  l,  in  the  symbol  table.  The  symbol  has  no  memory  location 
associated  with  it  as  would  a  label.  Assembly  directives  also  do  not  gen- 
erate code  themselves;  they  assist  the  assembly  program  in  generating 
code.  Assembly  directives  can  appear  anywhere  in  a  program  but  must 
appear  before  an  assembly  statement  that  needs  their  assistance.  Once 
the  definition  of  ti  is  carried  out  in  the  above  statement,  then  the  state- 
ment add  ti,i  can  be  used.  The  statement  add  ti,ti  doubles  the  contents 
of  accumulator  1. 

Now  that  we  know  how  to  get  information  from  the  computer,  let  us 
return  to  the  addition  example  at  the  end  of  Chapter  1.  In  that  example, 
we  placed  the  sum  of  the  two  numbers  in  location  J.  This  time  we  will 
send  the  answer  to  the  terminal  via  pbout%.  Even  though  the  answer  is 
already  in  accumulator  1,  we  cannot  simply  pbout%.  The  answer  in  accu- 
mulator 1  is  5;  the  computer  must  convert  it  to  an  ASCII  5.  In  base  10,  the 
ASCII  of  a  0  is  48,  of  a  1  is  49  (48  +  1),  of  a  2  is  50  (48  +  2),  and  so  on.  To 
send  the  5  to  the  terminal,  you  might  assume  that  you  should  add  the 
ASCII  value  of  0,  or  48,  and  then  pbouto.  However,  this  approach  will  not 
work  because  the  computer  does  not  work  in  decimal.  The  decsystem-20 
assumes  that  all  numbers  are  octal  numbers — that  is,  in  base  8.  (We 
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will  discuss  the  reasons  for  this  fact  in  Chapter  5.)  Thus,  if  you  use  a  23 
in  your  program,  the  computer  will  treat  it  like  2  times  8,  plus  3,  rather 
than  2  times  10,  plus  3.  We  can  temporarily  postpone  the  problem  of 
dealing  with  octal  numbers  by  using  the  assembly  directive  radix  io.  This 
directive  states  that  all  numbers  that  appear  thereafter  will  be  treated  in 
base  10,  as  illustrated  below. 

TITLE  EXAMPLE  3      .displaying   a  sum 
SEARCH  MONSYM 
RADIX  10 
3 
2 

48 

MOVE   1  .1 
ADD   1  >K 

ADD   1  .OFFSET         iadd  ASCII  offset 
PBOUTZ 
HALTF* 
END  START 

2.3  Three  Plus  Seven  Does  Not  Equal  Ten 

If  we  change  the  value  of  K  to  7  in  the  above  program,  the  answer  will 
be  colon  (:)  rather  than  10.  If  we  add  48  to  10,  the  answer  is  the  ASCII  for 
a  colon,  not  for  10.  No  ASCII  exists  for  a  ten;  the  computer  reads  a  ten  as 
two  symbols,  a  1  followed  by  a  0.  A  routine  is  available  for  stripping  down 
a  number  of  more  than  one  symbol  to  its  individual  characters  and  for 
converting  these  characters  to  their  ASCII  equivalent.  This  routine,  NOUT% 
(Number  out),  can  send  an  integer  to  any  device,  not  just  the  terminal, 
and  can  convert  the  number  in  the  computer  to  any  radix  (base)  from 
base  2  to  base  36.  (This  capability  has  nothing  to  do  with  the  assembly 
directive  radix  used  by  the  assembler.) 

nout%  needs  three  parameters:  the  name  of  the  device  to  which  the 
number  should  be  sent,  the  number,  and  the  desired  base.  The  computer 
passes  these  parameters  to  the  routine  in  the  monitor  via  accumulators. 
For  nout%,  accumulator  1  must  contain  the  name  of  the  device,  accu- 
mulator 2  must  contain  the  number,  and  accumulator  3  must  contain  the 
base.  The  printing  part  of  the  terminal  is  .priou,  PRlmary  out;  the  lead- 
ing dot  is  part  of  the  name.  The  nout%  routine,  like  many  other  monitor 
routines,  checks  errors.  If  the  routine  is  error-free,  then  the  computer 
skips  the  statement  after  the  nout%.  If  the  nout%  routine  receives  a 


I : 
K  : 

OFFSET : 
START: 
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non-number,  a  letter,  or  a  decimal  point — all  errors — the  machine  will 
execute  the  instruction  following  nout%.  This  type  of  monitor  call,  which 
either  skips  or  executes  the  instruction  following  it,  is  a  "plus  one  or  plus 
two  return."  Your  program  must  provide  an  instruction  in  both  locations. 
In  the  error  location  (plus  one),  use  an  erjmp  (ERror  jump),  such  as  erjmp 
label,  where  label  is  a  labeled  location  that  can  contain  a  simple  haltf% 
or  a  fancier  user  routine.  The  example  below  adds  two  numbers  and  dis- 
plays the  numbers  via  nout%. 


I  : 
K  : 

BASE  : 
TTYOUT : 
START: 


ERROR i 


TITLE  EXAMPLE 

SEARCH  MONSYM 

RADIX  10 

3 

7 

10 

.  PRIOU 

MOVE  2  1 1 

ADD  2,K 

MOYE   1  (TTYOUT 

MOVE   3  ,  BASE 

NOUTX 

ERJMP  ERROR 
HALTFX 
HALTFZ 
END  START 


!  b  a  s  e   Li  s  e  d   by  output 


ifor  NOUTZ   ac   2  must   have  data 


i  s  e  t 
5  s  e  t 


u  P 
u  P 


1 1  n  case 
i  p  r  o  3  r am 


device 
base 

of  error 
done 


A  similar  routine  is  available  for  accepting  a  number:  nin%,  Number 
IN.  This  routine  also  uses  three  accumulators.  Accumulator  1  has  the  name 
of  the  device  containing  the  number,  and  accumulator  3  contains  the  radix 
of  the  number.  If  nin%  is  successful,  accumulator  2  contains  the  number. 
The  terminal  keyboard  is  .priin,  or  the  PRimary  iNput  device.  nin%,  like 
nout%,  is  a  plus  one,  plus  two  monitor  call.  The  nin%  statement  is  like 
input  in  basic  or  read  in  Fortran,  except  that  it  includes  no  prompts, 
question  marks,  or  stars.  nin%  can  handle  bases  from  2  to  10.  The  follow- 
ing program  accepts  two  numbers  from  the  terminal,  adds  them,  and 
displays  their  sum  at  the  terminal. 
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I  : 


TITLE  EXAMPLE  5 
SEARCH  MONSYM 
RADIX  10 

0 


?  s  a  v  e  a  place  for 
!  t  h  e   first  number 


BASE: 
TTYOUT: 
TTYIN: 
START: 


10 

. PRIOU 
. PR  I  I  N 

MOVE  1  , TTYIN 
MOVE  3.  BASE 
NINX 


5  s  e  t   up  NINX  device 
5  s  e  t   up  NINX  radix 
5  9  e  t   first  n umber 


ERJMP  ERROR 
MOUEM  2,1 
NINX 


5  s  a  u  e  first  number 
i  s  e  t   second  number 


ERJMP  ERROR 
ADD  2  , 1 

MOVE  1  ,  TTYOUT 
NOUTX 


iadd  first  to  second 
iset   up  NOUTX  device 


ERROR : 


ERJMP  ERROR 
HALTFX 
END  START 


Upon  executing  the  above  program,  the  computer  will  send  a  message 
something  like  the  following: 

MACRO:  EXAMPL 
LINK:  Loading 
CLNKXCT  EXAMPL  execution] 

exampl  is  from  the  title  line  in  the  program;  the  rest  of  the  message  is 
the  same  for  any  program.  The  system  is  now  waiting  to  do  NIN%.  The 
user  types  in  numbers  on  the  keyboard,  priin.  The  nin%  statement  will 
end  at  the  first  nonnumber,  letter,  or  carriage  return.  The  program  will 
continue  until  the  second  nin%.  When  this  nin%  ends,  the  program  will 
continue  to  the  nout%  and  display  the  answer.  When  the  computer  reaches 
a  haltf%,  it  will  end  the  program  and  return  to  the  tops-20  level. 

We  could  use  two  improvements  in  this  program,  however.  First,  we 
would  like  to  be  able  to  use  the  on-line  editor  (for  example,  control  U, 
delete  key)  but  cannot  since  nin%  ends  at  the  first  nonnumerical  character. 
Second,  we  need  a  message  to  prompt  the  user  about  NIN%.  We  will  treat 
the  problem  of  messages  in  the  next  section.  Chapter  7  will  discuss  the 
difficulty  presented  by  nonnumerical  characters. 
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2.4  Messages 


pbout%  is  one  way  to  have  the  computer  send  messages,  or  strings,  to 
the  terminal.  You  must  first  place  the  message,  one  character  per  memory 
location,  in  the  program.  Then  move  the  characters,  one  at  a  time,  to 
accumulator  1  and  pbout%.  For  example,  if  you  want  to  send  the  message 
ah  to  the  terminal,  you  cannot  place  the  message  in  the  program  this 
way: 

I :  A 
J:  H 

Because  the  computer  only  understands  numbers,  it  treats  the  letter  A 
as  an  undefined  symbol.  You  must  therefore  place  the  ASCII  value  of  the 
character  in  a  memory  location. 

I:  G5  ?A 
J:       72  5H 

To  simplify  this  process,  you  may  use  an  assembly  directive  of  double 
quotation  marks.  The  assembler  will  replace  any  character  within  quo- 
tation marks  by  its  ASCII  equivalent.  (You  may  place  up  to  five  characters 
within  quotation  marks,  but  since  we  are  dealing  with  pbout%,  we  will 
use  only  one  character.)  The  following  program  will  send  a  message  to 
the  terminal. 

TITLE  EXAMPLE  6 

SEARCH  MONSYM 
I  :  "A" 
J :  "H" 
START :      MOUE   1 » I 

PBOUTZ 

MOVE   1  .J 

PB0UT% 

HALTFI 

END  START 

Most  messages  are  longer  than  two  characters,  however.  Thus,  the 
monitor  call  psout%  (Primary  string  out)  deals  with  strings.  Though  we 
will  discuss  psout%  in  more  detail  later,  you  need  to  know  now  that  the 
message  you  wish  to  psoutc  is  packed  into  the  computer  by  the  assembly 
directive  asciz.  After  the  asciz  directive,  you  need  a  leading  character 
to  signify  the  beginning  and  end  of  the  message.  This  character  also  enables 
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you  to  use  spaces,  tabs,  or  carriage  returns  in  the  message.  Designation 
of  a  special  character  for  this  purpose  would  restrict  you  from  using  it  in 
your  message;  thus,  you  may  use  any  character  to  block  off  a  message,  as 
illustrated  below. 


MESSl 
MESS2 
MESS3 


ASCI2  /the  moon   is  blue/ 
ASCIZ  ?  HOW  ARE  YOU  ? 
ASCIZ   *  FILL   IN   THE  DASHED  LINE 
 * 


The  delimiters,  /,  ?,  and  *,  are  not  part  of  the  message.  Note  also  the 
carriage  return  between  the  asterisks  (*)  in  the  last  line. 

To  use  psout%,  place  the  address  of  the  message  in  accumulator  1. 
psout%  returns  plus  one  (no  error  checking).  In  this  case,  you  should  not 
move  the  address  of  the  message  to  accumulator  1;  you  must  hrroi  (an 
opcode)  the  address — for  example,  hrroi  i.mess.  The  program  below 
accepts  a  number  from  the  terminal  in  base  10  and  sends  the  base  8 
equivalent  of  the  number  to  the  terminal. 

TITLE   EXAMPLE  7 

SEARCH  MONSYM 

RADIX  10 
BASE10:  10 
BASE8:  8 
TTYIN:  .PRIIN 
TTYOUT:  .PRIOU 

MESSl:      ASCIZ   /   TYPE   IN  A  NUMBER  / 
MESS2:      ASCIZ   /   THE  OCTAL  EQUIVALENT   IS  / 
START:      HRROI    It   MESSl  !set   up  PSOUT'Z 

PSOUTZ  .send  messl 

MOVE   1»   TTYIN  !set   up  NINI 

MOVE  3  i  BASE10 

NINZ 

ERJMP  OOPS 

HRROI    1  i  MESSZ 

PSOUTZ  isend  messZ 

MOVE    If   TTYOUT  iset   up  NOUTZ 

MOVE  3>  BASE8  ioutput    radix   is  8 

NOUTZ  i be  cause   of  NINZ 


{number   is   already    in  ac 


ERJMP  OOPS 
HALTFZ 

MESS3:  ASCIZ  *  I/O  ERROR 
OOPS:        HRROI    1  i  MESS3 

PSOUTZ 

H  A  L  T  F '/. 

END  START 


More  opcodes  will  be  necessary  to  write  more  meaningful  programs. 
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2.5  Summary 


The  main  point  in  this  chapter  is  to  realize  that  most  I/O  data  exchange 
must  be  in  the  form  of  streams  of  simple  characters.  The  structure  asso- 
ciated with  groups  of  characters  must  be  placed  in  algorithms.  These 
algorithms  are  collected  in  a  library  called  monsym.  Parameters  needed/ 
produced  by  the  algorithms  are  passed  to/from  the  library  via  accumulators. 

2.6  Exercises 

1.  Write  a  program  that  will  accept  a  character  using  a  pbin%;  then 
print  the  character  using  nout%.  (The  output  should  be  the  ASCII 
equivalent  of  the  character.) 

2.  Write  a  program  that  accepts  an  integer  via  NIN%;  then  display  the 
integer  using  a  pbout%.  (This  problem  is  the  opposite  of  problem  1. 
Note  that  for  integers  less  than  32,  radix  10,  two  characters  are 
printed.) 

3.  Using  only  pbin%s,  pbout%s,  and  psout%s,  write  a  program  that 
will  accept  three  single-digit  integers.  Add  the  first  two  integers, 
then  subtract  the  third  integer  from  the  sum.  (Choose  integers  such 
that  your  answer  is  greater  than  0  and  less  than  10.  Why  can  you 
ignore  the  offset  problem  in  this  exercise?  Try  adding  three  integers 
and  subtracting  one;  you  will  need  to  consider  offset.) 

4.  Write  a  program  that  converts  integers  from  base  10  to  any  other 
base.  (Accept  via  nin%  two  integers,  the  integer  to  be  converted, 
and  the  new  base;  then  nout%  the  result.  What  happens  if  the  output 
base  is  larger  than  10?) 

5.  Accept  an  integer  from  the  terminal.  Add  the  integer  to  an  integer 
stored  in  your  program  and  subtract  it  from  the  same  integer.  Print 
the  output  as  follows  (assume  the  integer  in  the  program  is  20): 

TYPE   IN  AN    INTEGER  24 

sum  aa 
dif  a 


18     chapter  two 


CH APTE  R 

3 


Jumps 


This  chapter  discusses  unconditional  and  conditional  jump  statements, 
which  allow  flexibility  in  the  flow  of  a  program.  This  "jump"  capability 
sets  apart  computers  from  calculators,  for  the  value  of  the  variables  at 
run  time  can  determine  the  path  through  a  computer  program,  goto  is 
an  example  of  an  unconditional  jump  statement  in  a  high-level  language. 
IF/THEN  is  an  example  of  a  conditional  jump.  Though  some  programmers 
question  the  need  for  unconditional  jumps  in  programs,  no  one  challenges 
conditional  jumps. 


3.1  A  Jump  Scorecard 

In  assembly  language,  you  may  represent  an  unconditional  jump  in  two 
ways:  jrst  and  jumpa.  jrst  is  preferred  because  of  execution  timing. 

Conditional  jumps  must  compare  two  things,  and  they  rely  on  the  same 
conditions  as  conditional  jumps  in  high-level  languages — namely,  less  than, 
less  than  or  equal  to,  equal  to,  greater  than,  greater  than  or  equal  to,  and 
not  equal.  The  assembly  jump  opcodes  are  jumpx,  skipx,  and  camx,  where 
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x  is  one  of  the  following  letters:  L  (less  than),  LE  (less  than  or  equal  to), 
E  (equal  to),  GE  (greater  than  or  equal  to),  G  (greater  than),  or  N  (not 
equal  to). 

If  the  stated  condition  is  satisfied,  the  computer  takes  an  action.  Thus, 
conditional  jumps  involve  three  variables:  the  two  objects  compared  and 
the  location  of  the  next  instruction.  However,  an  assembly  instruction  has 
only  two  variable  positions,  the  ac  and  the  operand.  Because  no  room 
exists  for  a  third  variable,  the  program  must  imply  either  the  jump  loca- 
tion or  one  of  the  compared  values.  The  jump  and  the  skip  serve  this 
purpose;  they  are  implied  arithmetic  compares.  The  jump  always  com- 
pares the  contents  of  the  ac  with  0;  the  skip  always  compares  the  contents 
of  the  operand  with  0.  If  the  jump  compare  is  satisfied,  the  computer 
treats  the  operand  as  a  label  referencing  the  next  instruction.  If  the  skip 
compare  is  satisfied,  the  computer  skips  the  next  instruction.  Whether 
the  compare  is  satisfied  or  not,  SKIP  will  place  the  contents  of  the  operand 
into  the  ac  (just  like  a  move).  (Accumulator  0  is  the  one  exception;  in  this 
case,  the  move  is  not  performed.)  camx  compares  the  contents  of  the  ac 
with  the  contents  of  the  operand.  If  the  condition  is  satisfied,  the  computer 
skips  the  next  instruction.  For  all  three  jumps,  failure  to  satisfy  the  spec- 
ified condition  results  in  execution  of  the  next  instruction  as  in  a  high- 
level  language.  (See  Table  3-1.) 

Adding  the  suffix  A  to  a  jump  statement  means  "always."  Thus,  jumpa 
means  "jump  always,"  treating  the  operand  as  a  "go  to"  label.  The  skipa 
and  cama  always  skip  the  next  instruction.  (As  mentioned  above,  skipa 
will  also  perform  a  move.)  If  the  jumps  have  no  suffixes,  then  the  com- 
puter ignores  the  statements  (except  skip,  which  it  will  treat  as  a  move). 

3.2  Where  to  Go  and  How  to  Get  There 

The  following  is  an  if/ then  statement  in  high-level  language. 

IF  A   >  B   THEN  GOTO  THERE 


TABLE  3-1.   Jump  Scorecard 


Opcode  Value 

Compare  to 

Action  if  satisfied 

jumpx  ac 

zero 

"go  to"  operand 

CAM*  ac 

opera  nd 

skip  next  inst 

skipj-  operand 

zero 

skip  next  inst 

(Remember:  skip  affects  accumulators.) 
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Below  is  an  assembly  language  version  of  this  statement. 

MOVE   2  » A 
CAMLE  2  »B 

JRST  THERE       »*oto    'there'    if  A   is   greater  than  5 
5here   if  A   is   less   than   or  equal   to  B 


Or  you  could  rewrite  the  condition  in  the  following  form. 


IF    (A   -   B)    >  0  THEN  GOTO  THERE 


The  assembly  version  would  then  look  like  this: 


MOUE  2  i  A 
SUB   2  ,B 

JUMPG  2  .  THERE 

The  opcode  sub  directs  the  computer  to  subtract  the  contents  of  the 
operand  from  the  contents  of  the  ac,  placing  the  difference  in  the  ac.  To 
create  the  equivalent  of  an  if  then/  else  statement,  simply  add  a  jrst 
else  after  the  jumpg  in  the  above  example. 

If  the  then  is  not  a  "go  to"  statement  but  several  statements, 


IF  A  >  B  THEN  statementl  .  .  .  statementN 
STATEMENT  AFTER  IF 


your  assembly  version  will  be 


MOVE  2  .A 
CAMG  2.B 

JRST  SKIPTHEM 

statementl 

•    *  • 

statementN 
SKIPTHEM:    STATEMENT  AFTER  IF 


Fortran  has  an  arithmetic  IF  similar  to  the  SGN  function  in  basic, 
if    (expression)    labell,    label2,  label3 

If  the  value  of  the  expression  is  negative,  labell  references  the  next  exe- 
cutable statement.  If  the  value  of  the  expression  is  0,  the  computer  uses 


JUMPS  21 


Iabel2;  if  the  expression  is  positive,  label3  is  the  reference.  You  can  accom- 
plish the  same  thing  in  assembly  by  the  following  statements  (assuming 
that  ac  contains  the  value  of  the  expression). 

JUMPL  AC  .  L ABEL  1 
JUMPE  AC  f  LABEL2 

JRST  LABEL3  5if   here i   ac  must   have   been  positive 

Another  conditional  used  in  high-level  languages  is  the  on/goto. 
ON   expression   goto   labell,  .  .  .  ,  labelN 

If  the  value  of  the  expression  is  1,  then  labell  references  the  next  exe- 
cutable statement;  if  the  value  is  2,  then  label2  references  the  next  state- 
ment, and  so  on.  Assuming  that  ac  contains  the  integer  value  of  the 
expression  and  location  one  contains  a  1,  the  following  is  one  way  assem- 
bly can  execute  an  on/goto. 

SUB  AC, ONE 
JUMPE  AC  ,   L ABEL  1 
SUB  AC  .ONE 
JUMPE  AC  »LABEL2 

•    •  • 

SUB  AC  .  ONE 
JUMPE  AC  .LABELN 

there   if   expression  not   in    ranse   1   to  n 

3.3  Loops 

Once  a  language  has  the  ability  to  jump,  it  can  repeat  calculations  by 
looping.  Two  types  of  loops  are  possible:  those  that  repeat  a  calculation  a 
fixed  number  of  times,  like  for/next  or  do;  and  those  that  repeat  a  cal- 
culation an  indefinite  number  of  times,  like  while/do  or  repeat/until. 
In  assembly  programming,  you  can  loop  a  definite  number  of  times  by 
placing  the  number  of  repetitions  into  an  accumulator  and  then  executing 
the  repetitive  calculations.  The  computer  then  subtracts  1  from  the  accu- 
mulator on  each  repetition  and  jumps  back  to  the  beginning  of  the  cal- 
culation every  time  the  result  is  not  0.  The  preceding  on/goto  example 
subtracted  and  jumped.  Because  the  combination  "subtract  1  and  jump" 
occurs  frequently,  the  opcode  sojx  is  designed  for  this  purpose.  The  com- 
puter reads  this  statement  as  "subtract  1  and  jump  if  the  result  satisfies 
condition  x,  where  x  is  an  L,  LE,  E,  GE,  G,  or  an  A."  Similarly,  aojx  is 
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an  instruction  to  add  1  and  jump  on  condition  x,  and  a  third  opcode  using 
skip  is  also  available.  Skips  deal  with  operands,  not  accumulators.  Thus, 
AOS*  is  an  instruction  to  add  1  to  the  contents  of  the  operand  and  skip  if 
the  result  satisfies  condition  x.  sosx  subtracts  1  from  the  contents  of  the 
operand  and  skips  if  the  result  satisfies  condition  x.  In  a  for/next  state- 
ment the  terminating  condition  next  is  at  the  end  of  the  loop.  Below  is 
an  assembly  example  of  a  for  next  loop. 

MOVE  AC f   NUMBEROFT I MES  ?for 
LOOP:  statement 

•  ♦  • 

SOJN  AC  .   LOOP  -next 

A  while  statement  is  an  example  of  a  loop  that  continues  an  indefinite 
number  of  times.  For  example,  if  you  want  the  computer  to  accept  char- 
acters from  the  terminal,  specifying  A  as  the  last  character  it 
should  accept,  you  can  type  any  number  of  characters  before  you  type  A. 

•  *  • 

CHAR:  "A" 

•  i  • 

PBINX  ^initialize  while  condition 

WHILE :      CAMN   1  .  CHAR 
JRST  DONE 

.  .  .  ibodc   of  loop 

PBINZ  Jchanse  while  condition 

JRST  WHILE 

DONE: 

The  while  loop  establishes  the  condition  before  the  loop  calculation.  In 
a  repeat/until  loop,  the  condition  appears  after  the  calculation. 

3.4  A  Program  Using  Jumps 

Let  us  look  at  a  simple  program  using  jumps  that  will  make  the  computer 
function  much  like  a  hand-held  calculator.  The  program  on  the  next  page 
will  accept  an  integer  number  and  any  of  the  following  operations:  addition 
(  +  ),  subtraction  (-),  multiplication  (*),  and  done  (  =  ).  If  you  type  in 
3  +  4*2  +  5  = ,  the  answer  will  be  19  (3  plus  4  is  7,  times  2  is  14,  plus  5  is 
19).  Here  is  the  algorithm  for  this  problem: 
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set  operation  to  plus 
repeat 

get  a  number 

do  operation 

get  new  operation 
until  operation  is  = 

In  the  following  example,  the  opcode  imul  multiplies  integers. 


TTYIN : 
TTYOUT i 
CLEAR: 
BASE  : 
ADD  : 
SUB  i 
MUL  : 
EO  : 

START: 
?  RE  PEAT 

GETNUM: 


DOOP  ! 


TITLE  EXAMPLE  8 

SEARCH  HONSYH 

RADIX  10 

ANS  =  4 

□  P  =  7 

. PR  1 1 N 

. PRIOU 

0 

10 

II  ^  II 
II  II 


MOVE  OP  .ADD 

HRROI  1  ,  NUMMESS 
PSOUTX 

MOVE   1  .  TTYIN 
MOVE  3.  BASE 
NINX 

ERJMP  OOPS 
CAMN  OP.  ADD 

JRST  PLUS 
CAMN  OP  .  SUB 

JRST  MINUS 
CAMN   OP.  MUL 

JRST  TIMES 

HRROI    1  .  BADOP 

PSOUTZ 

PBINZ 

MOVE  OP , 1 

JRST  DOOP 


iset   op   to  plus 
.send  Message 
iset   up  NINZ 


is   op  an  add 

yes 

no.    then    is    it  sub 
yes 

no.   then   is   it  mul 
yes 

if   here   then   invalid  operation 


it  ry  asain 
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PLUS  : 
MINUS: 
TIMES: 
NEWOP : 


5  UNT I L 


ADD  ANS.  2 
JRST  NEWOP 
SUB  ANS.  2 
JRST  NEWOP 

IMUL  ANS. 2 

HRROI    1  .OPMESS 

PSOUTX 
PBINZ 
MOVE  OP  .  1 

CAME  OPfEO 
JRST  GETNUM 


5  n  umber   is    in   ac  2 


iset  new  op 
iput   it   in  op 


SHOWIT :  MOVE   1  .  TTYOUT 

MOVE  2  .  ANS 
NOUTX 

ERJMP  OOPS 
HALTFZ 
MOVE  ANS  i  CLEAR 
JRST  START 

NUMMESS:  ASCIZ/ 
TYPE   IN  A  NUMBER/ 
! 

OPMESS:        ASCIZ/   TYPE   IN  AN  OPERATION/ 

i 

BADOP:  ASCIZ/ 
INVALID  OPERATION,  RETYPE/ 


iset   up  NOUT7. 


iclear  ans 
5  restartable 

?note   enclosed   carriage  return 


OOPS 


HALTFX 
END  START 


This  program  is  restartable.  When  the  computer  executes  a  haltf%, 
it  returns  to  the  TOPS-20  level  of  the  system.  If  you  type  a  cont  (continue) 
command,  the  program  will  continue  at  the  line  after  the  haltf%.  In  the 
above  example,  the  line  after  the  first  haltf%  clears  the  answer,  and  the 
next  line  restarts  the  program.  If  an  I/O  error  occurs  and  the  program 
stops  because  of  the  OOPS:  haltf%,  you  cannot  use  a  cont  because  no 
executable  code  is  present  after  that  haltf%.  end  is  a  nonexecutable 
command  used  by  the  assembler  program. 

If  you  were  to  write  the  same  example  in  a  high-level"  language,  you 
could  use  a  case  statement  to  determine  the  operations.  Your  case  set 
would  then  be  [  +  ,  -,  *,  =].  The  case  statement  is  similar  to  the  on/ 
goto  except  that  the  case  set  need  not  be  in  a  particular  order.  In  the 
on  goto  example,  the  expression's  value  had  an  order — a  1,  2,  or  3 — which 
determined  the  label  to  be  used  in  the  jump.  The  elements  in  the  case 
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set  could  be  apples,  oranges,  or  other  things  that  do  not  necessarily  have 
mathematical  relationships.  You  can't  subtract  a  1  from  an  orange,  for 
example,  and  get  an  apple.  Thus,  you  establish  an  order  by  placing  the 
elements  in  contiguous  memory  locations.  The  next  challenge  is  to  retrieve 
the  objects,  which  we  will  discuss  in  the  next  chapter. 

3.5  Summary 

This  chapter  shows  how  conditional  and  unconditional  jump  statements 
permit  a  certain  amount  of  flexibility  in  the  flow  of  a  program.  Once  a 
language  has  the  ability  to  jump,  it  can  repeat  a  number  of  calculations 
by  looping,  for  example  repeating  a  calculation  a  fixed  number  of  times 
or  an  indefinite  number  of  times.  All  of  the  high-level  language  conditional 
statements  and  loop  statements  can  be  expressed  using  assembly  state- 
ments. One  of  the  milestones  in  high-level  language  development  (algol) 
was  that  the  if/then/else  statement  forced  the  compiler  rather  than  the 
programmer  to  select  labels.  In  assembly,  however,  the  programmer  must 
label  all  jumps  to  locations.  This  chapter  also  introduces  opcodes  that 
perform  two  functions,  for  example  aojx,  an  opcode  more  powerful  than 
an  add  followed  by  a  jump. 

3.6  Exercises 

1.  Accept  an  integer  via  nout%.  If  the  integer  is  positive,  display  the 
integer  using  nout%.  If  the  integer  is  negative,  do  not  nout%  the 
integer;  instead  psout%  the  phrase  neg. 

2.  Use  NlN%s  to  accept  two  integers  and  pbin%  to  accept  an  operation. 
If  the  operation  is  a  +  or  - ,  perform  the  appropriate  operation  and 
nout%  a  result;  otherwise,  psout%  an  error  message. 

3.  pbin%  a  character.  pbout%  the  character  only  if  it  is  an  A  or  B.  Place 
the  above  in  a  loop  and  terminate  the  loop  after  the  fifth  pbin%  or  if 
the  letter  C  is  PBlN%ed. 

4.  Accept  two  integers  using  NlN%s.  nout%  the  largest  of  the  two  inte- 
gers. (Make  this  program  restartable.) 

5.  Set  up  a  loop  that  will  accept  five  random  integers  from  the  terminal. 
Design  the  program  to  nout%  the  position  of  the  largest  integer  after 
all  the  integers  are  typed  in. 

6.  Accept  an  integer  via  nin%.  Considering  only  positive  integers,  PSOUT% 
a  phrase  stating  whether  the  integer  is  even  or  odd.  (Hint:  Repeat 
subtractions  of  2.) 
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CHAPTER 

4 


Addressing  Modes 


So  far  we  have  concentrated  on  opcodes.  Now  we  will  discuss  another 
important  part  of  assembly  language,  the  addressing  mode,  which  deter- 
mines the  value  of  the  operand.  In  earlier  chapters,  we  used  the  direct 
addressing  mode.  In  the  direct  mode,  the  operand  is  the  address  of  the 
value  to  be  used  with  the  contents  of  the  ac  and  the  opcode.  Other  ways 
to  determine  the  value  of  the  operand  are  also  available  for  the  decsys- 
tem-20,  including  the  immediate,  indirect,  and  index  modes.  These 
addressing  modes  give  us  greater  flexibility;  thus,  your  standard  assembly 
statement  now  takes  the  following  form: 

opcode    ac,  E 

where  E  stands  for  the  effective  address  of  the  operand. 

Immediate  Addressing 

The  direct  addressing  mode  loads  an  ac  with  a  number  in  the  following 
manner: 

Ualue:  4 

♦   ♦  ♦ 

MOVE  AC  <  ualue 
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The  immediate  mode  accomplishes  the  same  thing  in  one  line: 


movei  ac  >  a 

Here  the  operand  E  is  the  value  to  be  used  in  the  assembly  instruction. 
The  suffix  I  on  the  opcode  establishes  the  immediate  mode.  Opcodes  we 
have  used  so  far  that  allow  the  suffix  I  are  add,  sub,  move,  imul,  and 
idiv.  For  example,  to  add  1  to  the  contents  of  an  accumulator,  use  the 
following  form: 

ADD  I   AC  .    1        i    o  r  AOJ  AC  » 

The  only  jump  instruction  that  has  an  explicit  immediate  mode  is  the 
compare,  caix.  Thus,  to  compare  the  contents  of  an  accumulator  with  a 
plus  sign  and  to  program  a  skip  instruction  if  the  two  elements  are  not 
equal,  write: 

CAIN  AC  »   "  +  " 


Index  addressing  is  very  similar  to  specifying  subscript  variables  in  a 
high-level  language.  In  a  high-level  language,  the  expression  A(I)  rep- 
resents the  Ith  element  in  the  A  collection.  To  find  the  A(I)  element,  the 
program  adds  the  value  of  I  (offset)  to  the  address  of  A  (base).  This 
method  of  offsetting  a  base  works  only  if  the  elements  in  the  collection 
are  in  contiguous  memory  locations.  A  high-level  language  sets  aside  the 
necessary  memory  locations  with  a  statement  like  dim  A(20)  or  dimension 
A(20).  In  assembly  language,  an  indexed  address  statement  has  this  form: 

opcode   ac,  base(offset) 

The  parentheses  signify  index  addressing.  The  offset  should  be  an  accu- 
mulator, and  the  base,  if  present,  is  generally  a  memory  location.  The 
computer  finds  the  effective  operand  for  indexing  by  adding  the  contents 
of  the  offsetting  accumulator  to  the  numerical  value  of  the  base  symbol. 
For  example,  the  following  places  a  5  into  ac  2. 

HERE:  ANYTHING 
5 


4.2  Index  Addressing 


•  ♦  ♦ 


MOVEI 
MQUE 


a,  i  ; 

,   HERE ( 4 ) 


i  p a  t   a   1    in   a c 
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A  statement  (word)  fills  one  memory  location  in  the  computer.  The  first 
line  (here:  anything)  places  the  value  of  anything  in  a  computer  word 
and  calls  the  word  here.  The  next  word  is  simply  a  5,  which  goes  into 
the  next  memory  location,  "here  +  1."  Later  the  program  immediately 
loads  ac  4  with  a  1.  The  indexing  step — "move  2,  HERE(4)" — calculates  the 
operand  by  finding  the  contents  of  the  indexing  register  (the  contents  of 
ac  4  is  1)  and  adding  the  contents  to  the  base  ("here"),  yielding  the 
operand  "here  +  1." 

At  this  point,  the  addressing  is  the  same  as  direct  addressing.  The 
program  moves  the  contents  of  "here  +  1"  into  ac  2.  You  can  use  the 
assembly  directive  block  to  reserve  contiguous  memory  locations,  block 
6  saves  the  next  six  memory  locations  in  a  program,  for  example.  The 
following  program  accepts  five  characters  from  the  terminal,  stores  the 
characters  via  indexing,  sends  a  carriage  return  to  the  terminal  after  the 
fifth  character,  and  then  presents  the  five  characters  in  reverse  order. 
The  out  loop  uses  the  indexing  accumulator  to  count  the  number  of  elements. 


HERE: 
CR: 

/ 

START: 
NEXT  : 


OUT: 


TIT 
SEA 
RAD 
BLO 
ASC 

MOV 
MOV 
PBI 
MOV 
ADD 
SOJ 
SUB 
HRR 
PSO 
MOV 
PBO 
SOJ 
HAL 
JR 
END 


LE  EXAMPLE  9 
RCH  MONSYM 
IX  10 
CK  5 
IZ/ 

EI  ^  5 
EI  2  i  0 
NX 

EM   1 »HERE ( 2 ) 

I   2  .1 

G  4  .NEXT 

I  2.1 

01    1  .  CR 

UTX 

E  1 .  HERE ( 2 ) 
UTX 


GE 


-OUT 


TF% 

ST  START 
START 


carriage  return 
number  of  char 
clear   ac  2 
set  char 
save  char 
inc  rement   ac  2 
more  chars? 
no.   but  counted 


too  Many 


send   carriage  return 

!  an  y  more 
i  restartable 


4.3  Indirect  Addressing 

In  direct  addressing,  the  operand  points  to  the  data;  that  is,  the  operand 
is  the  address  telling  the  computer  where  to  find  the  data.  In  indirect 
addressing,  the  operand  points  to  an  address  that  contains  another  address 
that  points  to  the  data.  The  high-level  expression  A(B(I))  serves  a  similar 
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purpose.  The  computer  uses  the  offset,  I,  to  find  an  element  in  the  B 
collection;  it  then  uses  the  B(I)  element  to  find  an  element  in  the  A  col- 
lection. The  symbol  (2  signifies  indirect  addressing.  An  indirect  way  of 
placing  a  3  into  ac  1  follows: 

*  t  t 

here:  there 

*  •  * 
there:  3 

*  »  » 

MOVE   1  >@he  re 

The  following  program  demonstrates  how  indirect  addressing  can  act  like 
indexing. 

TITLE   EXAMPLE  10 
SEARCH  MONSYM 
RADIX  10 
LIST:  48 
49 
50 
51 
52 

START:    MOVEI    Z>  LIST 

ADD  I   2.  4 

MOVEI   3.  5 
OUT :        MOVE   1  .  @2 
PBOUTX 
SUBI   2,  1 
SOJG  3.  OUT 
HALTFI 
END  START 

What  does  this  program  do?  The  assembly  directive  exp  can  simplify  this 
program  by  directing  the  assembler  to  place  those  quantities  delimited 
by  commas  into  separate  memory  locations.  Thus,  you  can  place  the  five 
list  elements  above  on  one  line  as  follows: 

LIST:      EXP  48»49»50.51.52 

4.4  Calculating  Effective  Addresses 

Combinations  of  the  addressing  modes  are  also  possible  to  further  enrich 
the  assembly  language.  For  example: 

opcode   ac,  @base(offset) 


i  a  d  dress   of    list  in 
iac  2.  not   the  48 
inow   ac   2  contains 
iaddress   of  list+4 
iac   3  will    be   a  counter 


5  n  e  x  t  element 
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In  order  to  calculate  an  effective  address,  we  must  set  up  a  hierarchy 
among  the  addressing  modes.  First,  look  for  indexing.  If  parentheses  are 
present,  evaluate  the  quantity  inside  the  parentheses  to  determine  the 
referenced  accumulator.  The  partial  effective  address  is  then  the  contents 
of  the  indexing  accumulator.  If  the  program  does  not  use  indexing — that 
is,  it  contains  no  parentheses — then  the  partial  effective  address  is  0. 
Second,  add  to  the  partial  effective  address  the  value  of  any  symbol  or 
numerical  constants  present  in  the  operand — for  example,  the  value  of 
the  symbol  base.  Third,  if  the  program  uses  indirect  addressing,  use  the 
present  partial  effective  address  as  an  address.  Go  to  that  address,  start 
over  at  step  one,  and  proceed  through  all  three  steps  again.  Repeat  these 
three  steps  until  you  find  no  indirect  addressing.  The  final  partial  effective 
address  is  the  one  to  use  with  the  original  opcode  and  ac  that  started  the 
calculation,  always  calculate  the  effective  address  first,  then 
perform  the  OPCODE.  (See  Figure  4-1.) 

The  following  example  uses  radix  10  and  the  solidus  notation  to  specify 
location/value;  thus,  400/4  indicates  that  location  400  contains  a  4. 

RADIX  10 
□FFSET=2 
BASE=400 


1/400 
2/50 
51/5 
52/1 

aoo/a 

450/2 


Operand 


Value 


Effective  Address 


(offset) 
@  offset 
(gbase 


0  +  (2)  =  50 
@2 
(5400 
@400(2)  = 


50 
50 
4 


(abase(offset) 


@l(offset) 


(5  <  400  +  50  > 
@1(2)  = 


2 


(aoffset(offset) 


@  <  1  +  50  > 

mm  = 


5 


@base(2) 


@  <  2  +  50  > 
@400(2)  m 


1 


@  <  400  +  50  > 


2 
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GET  OPERAND 


N 


E^(INDEX) 


E<-0 


E^BASE  +  E 


GOTO  E 


& 


N 


OPERAND«-E 


Figure  4-1.    Calculating  the  Effective  Address 


This  example  shows  that  the  instruction  "opcode  ac,  @base(offset)"  is 
equivalent  to  "opcode  ac,  2."  Note  that  referencing  the  first  16  memory 
locations  is  the  same  as  referencing  the  accumulators.  (The  next  chapter 
will  give  an  example  of  indirect  addressing  referencing  indirect  addressing.) 
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The  assembler  can  also  understand  arithmetical  expressions  within  a 
statement: 

opcode   ac  +  2,    @  base  -  2  (offset  *  3) 

Using  the  above  values,  with  ac  =  4  and  radix  10,  this  statement  is 
equivalent  to  the  statement  below. 

opcode  6,    @  398(6) 

The  arithmetical  operations  permitted  are  addition  ( + ),  subtraction  ( - ), 
multiplication  (*),  and  division  (/).  Nesting  operations  are  permitted,  but 
you  must  use  angle  brackets,  <>,  rather  than  parentheses,  which  signify 
indexing.  The  following  example  uses  nesting: 

opcode  <ac  +  3>  *  2,  @  <  base  +  4  >  /2(offset  +  5  *  <  offset  -  1>) 

Again,  using  the  above  values  and  ac  =  4,  the  statement  is  equivalent  to 
the  statement  below. 

opcode  14,    @  202(7) 

4.5  Opcode  Function  Suffixes 

As  we  discussed  earlier,  the  flow  of  an  operation  is  normally  from  right 
to  left.  However,  the  trailing  M  in  movem  is  an  example  of  an  opcode 
function  suffix  that  changes  the  flow  from  left  to  right.  The  opcodes  we 
have  used  so  far  that  allow  the  trailing  M  are  add,  sub,  move,  imul,  and 
idiv.  The  instruction  "addm  ac,  operand"  adds  the  contents  of  ac  to  the 
contents  of  the  operand  and  places  the  result  in  the  operand  location.  You 
can  use  the  M  suffix  with  all  modes  of  address  but  the  immediate  mode. 
For  example  (using  the  above  values),  you  could  write  the  following: 

ADDM  3,    @  BASE 

This  instruction  adds  the  contents  of  accumulator  3  to  accumulator  4  and 
places  the  results  in  accumulator  4.  Don't  forget  to  find  the  effective  address 
first,  before  you  perform  the  opcode.  You  may  use  other  letters  in  opcodes, 
but  you  will  find  no  simple  pattern  for  their  use.  (See  Appendix  B  on 
opcodes.)  One  opcode  worth  noting  is  movno:,  where  N  stands  for  nega- 
tive. The  x  is  generally  an  I,  meaning  immediate.  The  following  operation 
will  not  move  a  negative  3  into  ac. 

MOVEI    AC.  -3 
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This  movn  operation  will: 
MOVNI     AC  »  3 

To  understand  this  it  is  necessary  to  examine  machine  language,  a  subject 
for  the  next  chapter. 

4.6  Summary 

Before  any  serious  programming  can  be  performed,  a  language  must  have 
flexible  methods  in  order  to  reference  data.  Try  writing  a  program  in  a 
high-level  language  without  subscript  variables!  In  assembly  language 
opcodes  alone  will  not  suffice  for  the  execution  of  serious  programming. 
A  family  of  addressing  modes  is  required  to  determine  the  value  of  these 
opcodes.  There  are  four  addressing  modes  available  in  the  decsystem- 
20 — direct,  immediate,  index  and  indirect.  Combinations  of  these  addres- 
sing modes  are  also  possible.  To  learn  other  addressing  modes  consult  a 
text  on  Digital's  LSI-11  or  Motorola's  6809. 

In  the  next  chapter  we  will  be  learning  how  the  computer  translates 
the  source  code — opcodes  and  the  various  address  modes — into  machine 
code. 

4.7  Exercises 

1.  What  are  the  addressing  modes  of  the  decsystem-20?  Write  a  one- 
line  example  of  each  mode. 

2.  Draw  a  flowchart  showing  how  to  calculate  an  effective  address  in  the 

DECSYSTEM-20. 

3.  Write  a  program  that  will  add  the  same  two  integers  four  times  using 
a  different  addressing  mode  each  time. 

4.  Code  the  following  high-level  language  notation  into  assembly  lan- 
guage. (Assume  the  array  A  contains  4,2,9.) 

FOR    I    =    1    TO  3 

SUM   =   SUM  +  A ( I ) 
NEXT  I 
PRINT  SUM 

5.  The  following  high-level  language  program  will  interchange  array 
elements. 
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DUMMY   =  A(I) 

A  (  I  )    =   A  (  I   +   1  ) 

A(I    +    1)    =  DUMMY 


Write  an  assembly  program  that  will  interchange  the  second  and  third 
elements  of  the  array  (4,2,9)  and  then  print  the  new  array. 


ADDRESSING  MODES  35 


CHAPTER 

5 


Numbers,  Radices,  and  Bits 


5.1  Machine  Code 

Most  computers  are  digital  computers,  rather  than  analog  computers. 
The  digital  computer  is  based  on  an  electronic  switch  that  can  be  either 
on  or  off;  because  it  has  only  these  two  positions  or  states,  this  switch  is 
known  as  a  binary  switch.  The  mathematical  symbols  1  and  0  can  repre- 
sent the  on-off  states  inside  the  computer.  For  problems  or  questions  with 
only  two  possible  outcomes  or  answers,  one  switch  can  represent  the 
answer.  For  example,  a  1  can  represent  "yes"  (on)  and  a  0  can  represent 
"no"  (off),  or  alternatively,  a  1  can  represent  "true"  and  a  0  "false." 

For  problems  with  more  than  two  possible  answers,  more  than  one 
switch  is  necessary.  For  instance,  for  a  computer  to  allow  choice  among 
four  possible  colors — red,  blue,  white,  or  green — it  would  need  two  switches. 
The  two  switches  could  then  represent  the  combinations  00,  01,  10,  and 
11,  with  off-off  representing  red,  off-on  representing  blue,  and  so  on.  The 
more  unique  outcomes  a  problem  has,  the  more  switches  required  to  rep- 
resent each  possible  outcome.  With  each  additional  switch,  the  number  of 
unique  states  doubles.  Thus,  three  switches  allow  eight  unique  patterns 
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(000,  001,  010,  Oil,  100,  101,  110,  111),  twice  as  many  as  those  allowed 
by  two  switches.  Similarly,  four  switches  produce  16  patterns  (2  times  8). 
The  number  of  unique  patterns  or  states  is  always  2  raised  to  the  number 
of  switches. 

The  patterns  of  l's  and  0's  can  also  represent  numbers.  A  computer  with 
three  switches  can  represent  eight  unique  numbers.  The  natural  choice 
(but  not  the  only  choice)  is  for  the  patterns  to  represent  the  numbers  0 
through  7.  Because  the  switches  have  two  possible  positions,  the  pre- 
ferred radix  of  a  digital  computer  is  a  power  of  2.  Thus,  digital  computers 
usually  work  in  octal  (8),  or  hexadecimal  (16),  but  not  decimal  (10)  since 
10  is  not  an  integer  powrer  of  2.  In  order  to  read  machine  code,  the  binary 
representation  of  a  program,  you  will  need  a  good  understanding  of  binary- 
related  bases. 

5.2  Radix  N 

This  section  discusses  how  to  represent  a  number  in  different  bases.  The 
best  way  to  understand  bases  is  to  reexamine  base  10.  Base  10  has  ten 
unique  symbols  (0  through  9).  To  represent  numbers  larger  than  9,  the 
basic  numbers  are  concatenated  (linked).  For  example,  we  can  represent 
the  number  123  as  follows: 

1  x  10**2  +  2  x  10**1  +  3  x  10**0 

where  **  means  "raised  to  the  power."  The  value  of  10**2  is  the  symbol 
100,  which  in  base  10  is  one  hundred.  The  symbol  100  guarantees  that  the 
third  and  only  the  third  digit  will  be  affected.  Similarly,  the  value  of  the 
symbol  10**1  is  10,  which  in  base  10  is  ten.  The  symbol  10  guarantees 
that  the  second  digit  and  only  the  second  digit  will  be  affected.  Let's  use 
the  same  reasoning  to  discuss  base  8,  or  octal.  Since  base  8  has  eight 
unique  symbols  (0  through  7),  we  can  form  a  number  larger  than  7  by 
concatenating  the  basic  symbols.  Written  in  terms  of  base  8,  the  number 
123  is: 

1  x  8**2  +  2  x  8**1  +  3  x  8**0 

In  base  8,  the  symbol  100  represents  the  value  of  8**2.  This  guarantees 
that  only  the  third  digit  is  affected,  etc.  To  determine  the  decimal  equiv- 
alent of  the  octal  number  123,  we  must  convert  it  to  base  10.  The  above 
expression  then  represents  the  following  number. 

1x64  +  2x8  +  3x1-64  +  16  +  3  =  83 
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Remember  the  following  general  points  when  working  in  different  bases: 

•  The  number  of  unique  symbols  in  any  base  is  the  same  as  the  value 
of  the  base.  Decimal  has  ten  unique  symbols,  and  octal  has  eight,  for 
example. 

•  The  largest  unique  symbol  in  any  base  is  1  less  than  the  base.  Thus, 
the  largest  unique  symbol  in  decimal  is  9  and  in  octal  is  7. 

•  The  symbol  10  represents  the  base  in  any  radix.  In  base  10,  10  is  a 
ten;  in  base  8,  10  is  an  eight. 

Consider  the  hexadecimal  system,  or  base  16,  which  must  have  16  unique 
symbols.  Since  we  have  only  ten  numerical  symbols,  we  must  take  the 
other  six  symbols  from  the  alphabet:  A,  B,  C,  D,  E,  and  F.  An  A  is  a  10, 
an  F  is  a  15.  We  can  decipher  the  number  1A4  in  this  manner: 

1  x  16**2  +  A  x  16**1  +  4  x  16**0 

The  hexadecimal  version  of  the  symbol  16**2  is  100,  and  the  decimal 
equivalent  is  256.  The  following  expression  represents  the  decimal  value 
of  1A4. 

1  x  256  +  10  x  16  +  4  x  1  =  256  +  160  +  4  =  420 

With  this  understanding  of  how  numbers  are  constructed,  let  us  now 
simulate  a  xin%  via  pbix%.  Remember,  when  you  type  123  into  the  ter- 
minal, the  computer  receives  the  ascii  equivalent  of  each  digit.  To  under- 
stand how  to  convert  the  stream  of  ASCII  characters  to  a  number,  first 
assume  that  the  1  is  already  in  an  accumulator  called  temp.  The  terminal 
now  sends  the  ASCII  of  a  2  to  the  computer,  which  subtracts  the  ASCII 
offset  (48)  from  the  character  yielding  the  number  2.  Before  adding  this 
number  to  temp,  the  current  contents  of  temp,  1,  must  shift  left  to  the 
second-digit  position.  The  computer  accomplishes  this  shift  by  multiplying 
the  contents  of  temp  by  the  base  in  which  the  number  is  to  be  expressed. 
After  this  operation,  the  temp  contains  a  10  and  is  ready  for  the  addition 
of  2;  as  a  result,  the  temp  now  stores  a  12.  This  process — subtracting  the 
ascii  offset,  multiplying  the  temp  contents  by  the  base,  then  adding  the 
new  digit — repeats  for  each  character,  even  the  first  character!  When  does 
the  process  stop?  The  xiv*  monitor  call  ends  when  a  typed  character  is 
not  in  the  base  range  (0^=  char  <  base). 

If  we  were  to  use  a  while  loop  to  accept  characters,  the  condition  for 
doing  the  loop  appears  to  be  the  following: 

WHILE    (CHAR   >   =    '0'   AND  CHAR  <   BASE)  DO 
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The  one  character  that  will  not  work  with  this  condition  is  the  carriage 
return — more  specifically,  the  implied  line  feed  that  follows  every  carriage 
return  typed  in  from  the  keyboard.  A  carriage  return  causes  the  print 
head  (cursor)  to  return  to  the  beginning  of  the  line;  its  ASCII  value  is  13 
(base  10).  A  line  feed  causes  the  print  head  to  advance  to  the  next  line, 
and  its  ASCII  value  is  10.  Because  most  applications  require  that  the  car- 
riage return  start  a  new  line,  the  computer  operating  system  program 
automatically  sends  both  a  carriage  return  (ASCII  13)  and  a  line  feed  (ascii 
10)  to  the  terminal  when  it  receives  the  ASCII  equivalent  of  a  carriage 
return.  Though  the  I/O  buffer  deals  with  one  character  at  a  time,  it  does 
store  characters  for  use  on  the  next  pbix%.  Thus,  if  you  terminate  with 
a  carriage  return,  you  must  clear  the  line  feed  from  the  i/o  buffer  (this 
step  occurs  automatically  with  nin%).  The  following  algorithm  simulates 
a  nin%  via  pbin%s: 
get  char 

while  char  not  carriage  return  do 


change  char  to  num 
if  num  <  0  then  goto  done  +  1 
else  if  char  >  =  base  then  goto  done  +  1 
else  begin 

multiply  temp  by  base 
add  to  temp  num 
get  char 

end 

end 

done:  get  line  feed 

rest  of  program 

Here  is  the  assembly  version  of  this  routine: 


begin 


PBIN/f. 


WHILE : 


:      CAIN   1  .13 
JRST  DONE 
SUBI    1  ,  "0" 
JUMPL   1  .  DONE+1 
CAML     1  i  BABE 


carriage  return 


yes 

subt  ract  offset 
less   than   a  0 
less   than   the  base 


JRST  DONE+1 
IMUL   TEMP  »  BASE 
ADD     TEMP  i  1 
PBINZ 


iadd  number  in  ac  1  to  temp 
inext  char 


n  o 


DONE  : 


JRST  WHILE 
PBIN7. 


i  set   line  feed 


«  ♦  • 
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You  must  still  limit  the  bases  you  use  to  2  through  10.  Do  you  know 
why?  As  you  remember,  the  nout%  monitor  call  converts  a  number  in 
the  computer  to  a  stream  of  ASCII  characters,  which  requires  that  the 
number  be  broken  down  into  its  individual  digits.  The  radix  in  which  the 
number  is  to  be  expressed  determines  the  digits  the  computer  will  use. 
How  would  you  send  the  octal  equivalent  of  the  hexadecimal  value  1A4 
to  the  terminal?  The  easiest  way  is  to  convert  the  number  to  decimal  and 
then  from  decimal  to  the  desired  base.  Essentially,  then,  to  do  base  con- 
versions, you  must  know  how  to  convert  from  base  10  to  another  base. 

Suppose  you  want  to  express  the  number  10,  in  base  10,  in  octal.  The 
number  is  really  8  +  2,  or  (1  x  8**1)  +  (2  x  8**0),  which  is  simply  12 
octal.  Thus,  you  break  down  the  original  number  (10)  into  powers  of  the 
desired  base  (8).  Let  us  convert  the  decimal  number  68  to  octal  in  the 
same  manner: 

68  =  64  +  4  =  lx  8**2  +  0  x  8**1  +  4  x  8**0  =  104 

To  calculate  the  powers  of  8  for  a  large  number,  you  must  continually 
divide  the  number  by  8,  collecting  remainders,  until  the  new  quotient  is 
no  longer  divisible  by  8.  For  example,  68  divided  by  8  is  8  with  a  remainder 
of  4.  The  4  becomes  the  last  symbol  of  the  octal  number  104.  Now  divide 
the  quotient  (8)  by  the  base  (8).  Your  answer  is  1  with  a  0  remainder.  The 
0  becomes  the  second  symbol  in  104.  Again,  divide  the  quotient  (1)  by  the 
base  (8).  The  new  quotient  is  0  with  a  remainder  of  1,  the  1  in  104. 

Let  us  now  go  back  to  our  original  problem  of  finding  the  octal  value  of 
the  hexadecimal  number  1A4.  1A4  in  decimal  is  420.  Continually  dividing 
420  by  8  yields  644.  Use  of  base  10  is  not  sacred  in  performing  conversions. 
The  only  condition  for  converting  is  to  use  the  same  base  for  expressing 
the  two  numbers  and  for  dividing  them.  We  might,  for  example,  first 
express  both  numbers,  the  1A4  and  the  8,  in  hexadecimal  and  then  divide 
the  number  using  hexadecimal  rules!  However,  we  use  base  10  because 
we  are  most  familiar  with  the  decimal  system.  The  computer,  on  the  other 
hand,  is  most  comfortable  with  base  2  because  of  its  binary  nature.  An 
algorithm  for  converting  a  number  to  a  new  base  follows: 

quotient  gets  number 
while  quotient  not  0 
begin 

divide  quotient  by  divisor 
save  remainder 
quotient  gets  quotient 
count  a  digit 
end 
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You  have  probably  noted  that  the  first  remainder  in  your  division  becomes 
the  symbol  farthest  to  the  right  in  your  new  number,  and  the  last  remain- 
der becomes  the  first  symbol  on  the  left.  The  left  symbol  prints  out  first 
and  the  right  symbol  last  (a  stack).  It  would  be  necessary  to  use  a  counter 
to  keep  track  of  the  number  of  remainders  (symbols).  The  problem  with 
printing  the  remainder  is  similar  to  example  9. 

In  performing  idiv,  necessary  for  base  conversions,  the  assembler  places 
the  quotient  in  the  ac  associated  with  the  opcode,  but  the  remainder  is  in 
ac  +  1,  the  next  accumulator,  whose  original  contents  are  lost  when  using 
idiv.  (The  accumulators  are  cyclic;  the  first  ac  reappears  after  the  last.) 
The  simulated  nout%  program  below  converts  the  value  in  location  num 
to  the  radix  in  location  base. 


TITLE  EXAMPLE  11 
RADIX  10 
SEARCH  MONSYM 
QU0  =  5 

REM=B  iquo+1 
C0UNTER=7 

SAVE:       BLOCK   10  iremainders   are   saved  here 

BASE:  8 
NUM:  G8 

START:      MOVEI   COUNTER  »   0  .show   at    least   one  diSit 

MOVE  QUO  »  NUM 
WHILE:      JUMPE  QUO,  DONE 

IDIV  OUOi  BASE 

MOVEM  REM.   SAVE ( COUNTER ) 

AOJA  COUNTER  .  WHILE 

DONE:        SUBI   COUNTER  » 1 

PRINT:      MOVE   li   SAVE ( COUNTER )  !3et    last  diSit 

ADD  I    1  i    "0"  5  ASC I  I  offset 

PBOUTX 

SOJGE  COUNTER  ,  PRINT 

HALTFX 

END  START 


This  simulated  nout%  program,  like  the  simulated  NiN<7f ,  will  not  work 
for  a  base  larger  than  10  due  to  the  ASCII  offset.  For  radices  larger  than 
10,  the  letter  A  represents  10.  The  ASCII  for  9  minus  the  ASCII  for  0  yields 
a  result  of  9.  But,  the  ASCII  for  A  minus  the  ascii  for  0  does  not  produce 
an  answer  of  10!  The  result  is  17  (base  10),  which  accounts  for  the  seven 
ascii  characters  between  ascii  9  and  ASCII  A.  Thus,  for  the  above  exam- 
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pie  to  handle  bases  larger  than  10,  you  must  add  the  following  lines  before 
the  line  addi  i,  "0" 


CAILE  1 »  9 
ADDI    1  i  7 


ineed  extra  7? 
ives 


5.3  Assembly  Language  and  Machine  Code 


In  this  section,  we  will  examine  the  relationship  between  a  mnemonic 
assembly  statement  (opcode  ac,  operand)  and  the  corresponding  machine 
code  (l's  and  0's).  Memory  locations  store  patterns  of  l's  and  0's.  The  1  or 
0  is  a  Binary  digiT  and  is  referred  to  as  a  bit.  Each  memory  location 
contains  the  same  number  of  bits.  At  one  time,  the  number  of  bits  making 
up  a  computer  word  established  computer  classifications:  an  8-bit  system 
was  a  microcomputer;  a  16-bit,  a  minicomputer;  and  a  32-bit  or  more,  a 
mainframe  computer.  Because  of  progress  in  solid-state  physics  and 
microelectronics,  however,  classifying  by  word  size  is  not  always  valid, 
and  distinctions  are  blurring  among  micros,  minis,  and  mainframes.  The 
decsystem-20  has  36  bits  in  each  word,  allowing  2**36,  or  6,719,476,736 
different  patterns  of  l's  and  0's! 

Let  us  examine  how  to  code  assembly  statements,  opcode,  ac  and  oper- 
and, into  patterns  of  l's  and  0's  that  represent  data  and  executable  code. 
Systems  with  small  word  sizes  generally  need  more  than  one  word  to  code 
instructions.  However,  because  of  the  number  of  bits,  most  decsystem- 
20  assembly  statements  need  only  one  word  per  statement,  which  makes 
coding  easier.  The  36  bit  positions  that  make  up  a  word  are  numbered, 
starting  on  the  left  with  the  0  bit  and  ending  on  the  right  with  bit  35.  A 
decsystem-20  assembly  statement  contains  the  following  information: 
the  opcode,  the  accumulator,  and  the  operand,  with  its  addressing  modes. 
The  one  word  of  36  bits  must  encode  all  this  information  (see  Figure  5- 
1).  The  opcode  uses  the  first  9  bits,  bits  0  to  8,  which  allow  for  up  to  2**9, 
or  512,  opcodes.  Bits  9,  10,  11,  and  12  specify  which  of  the  16  accumulators 
an  assembly  statement  is  using.  (Remember:  Four  bits  are  necessary  to 
represent  16  different  items. )  Bit  13  signifies  indirect  addressing.  If  @  is 


Bits 


0 


8     9  ....  12 


13 


14 


17 


18 


35 


opcode  ac 
Figure  5-1.    decsystem-20  Word 


@ 


index 


memory 
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present  in  the  operand  field,  then  bit  13  is  set  (made  equal  to  1).  When 
finding  the  effective  address,  the  program  examines  bit  13  to  see  whether 
indirect  addressing  is  present,  and  the  search  for  the  effective  address 
continues  until  bit  13  is  clear  (has  a  value  of  0).  Index  addressing  uses  an 
accumulator,  and  again,  4  bits  are  necessary  to  identify  the  indexing  accu- 
mulator— bits  14,  15,  16,  and  17.  We  now  have  accounted  for  the  left  half 
of  the  decsystem-20  word. 

The  right  half  of  the  word,  bits  18  to  35,  references  the  memory  location 
to  be  used  with  an  instruction.  These  bits  identify  the  part  of  the  operand 
that  is  not  the  symbol  <g  and  not  inside  parentheses.  It  is  thus  the  value 
of  base  in  the  operand,  "<S  base(offset),"  or  simply  the  value  of  base  in  the 
expression  "opcode  ac,  base."  Since  this  half  contains  18  bits,  only  2**18, 
or  262,144  memory  locations  can  be  addressed.  Let  us  look  at  the  machine 
code  equivalents  of  several  opcode  values. 


Opcode  Machine  Code 

bit  012  345  678 

move  010  000  000 

add  010  111  000 

ADDM  010  111  010 


Below  are  machine  code  versions  of  several  assembly  statements  (the 
mnemonics  are  in  base  10): 


MOVE    1 ,2  010000000  0001   0  0000  000000000000000010 

ADD   3,   2(1)  010111000  0011   0  0001  000000000000000010 

ADDM    12,   @  20(7)  010111010   1100   1   0111  000000000000010100 


Octal  is  the  preferred  base  for  the  decsystem-20  because  it  makes  it 
easier  to  read  code.  (Some  computers  use  base  16,  but  36  is  not  divisible 
by  16.)  Three  binary  bits  are  necessary  to  make  an  octal  number;  there- 
fore, the  octal  machine  code  has  12  digits  (36  divided  by  3).  Coding  the 
same  examples  in  octal  yields  the  following: 


MOVE   1  .2  200040  000002 

ADD   3.   2(1)  270141  000002 

ADDM    12 »   @  20(7)  272G27  000024 
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Because  the  number  of  accumulators  is  not  divisible  by  3,  the  ac  bits, 
indirect  bit,  and  indexing  bits  overlap.  Thus,  the  octal  code  is  not  as 
transparent  as  the  binary  code,  making  it  more  difficult  to  determine  what 
accumulator  is  in  use,  for  example,  or  whether  indirect  addressing  is  pres- 
ent. The  example  below  is  a  program  that  reads  itself  and  sends  its  machine 
code  to  the  terminal. 


TITLE  EXAMPLE  12 
SEARCH  MONSYM 
RADIX  10 
C0UNT=4 
BASE:  8 

START:      MOVEI    1  i    . PRIOU 
MOVE  3  i  BASE 
MOVE  2  »   START- 1 ( COUNT ) 

NOUTX 

ERJMP  DONE 
MOVEI    1  ,  13 
PBOUTX 
MOVEI    it  10 
PB0UT7. 

CAME  2  ,  DONE 
AOJA  COUNT  .  START 
DONE:  HALTFX, 

END  START 


In  this  example,  only  13  lines  generate  code,  from  base  to  the  done. 
Execution  of  this  program  yields  the  following  printout: 


00000000  0  0  1  0 
201040000101 
200140000140 
200104000140 
1 04000000224 
320700000154 
20 1 0400000 1 5 

1  04000000074 
201040000012 
104000000074 
312100000154 
344200000141 
104000000170 

Note  that  the  monitor  calls  nin%,  pbout%,  and  haltf'x  all  have  the  same 
opcode,  104,  which  is  a  Jump  to  SYStem  (jsys).  The  right  half  of  the  word — 


! us  i  n  S  octal 

i  s  e  t   lip  terminal 

i-l  so  that  base  will 
ibe   shown  first 

icarriase  return 
iline  feed 
5 1 ast  line? 


44      CHAPTER  FIVE 


224,  74,  170 — specifies  the  jsys  being  called.  The  second  line  shows  the 
value  of  .priou  as  101  (found  in  moxsym).  Either  .priou  or  101  can  ref- 
erence the  terminal  printer.  The  address  in  the  third  line,  the  right  half 
of  the  word,  is  140.  The  mnemonics  reveal  this  part  of  the  code  as  the 
address  of  the  location  base.  Octal  140  is  in  fact  the  normal  location  for 
the  beginning  of  a  program.  Note  that  start  is  location  141  and  that  one 
counts  11  lines  to  the  haltf^c.  The  HAJLTF*  is  referenced  as  location  154. 
How  does  141  +  11  equal  154?  The  error  here  is  that  the  decsystem-20 
uses  octal,  and  the  line  count  is  13  octal  lines,  141  +  13  =  154. 

5.4  Macro 

The  tops-20  command  macro  generates  a  utility  program  that  allows  you 
to  examine  the  machine  code  version  of  a  program.  Besides  generating 
code,  macro  checks  for  assembly  errors.  It  can  create  two  files  from  the 
source  file  that  you  supply:  the  relocatable  file  (rel  file)  and  the  listing  file. 
The  linker  uses  the  rel  file  when  the  program  is  executed.  (It  is  possible 
to  execute  parts  of  programs  from  different  files.  It  is  the  job  of  the  linker 
program  to  form  these  program  fragments  into  a  workable  unit.)  The 
listing  file  contains  the  original  source  file,  a  machine  code  version  of  the 
source  file,  and  the  symbol  table.  You  can  invoke  macro  as  follows:  at 
tops-20,  type  macro  followed  by  a  carriage  return.  A  star  prompt  (*)  will 
appear.  The  command  line  for  macro  then  takes  this  form: 

^relocatable,  listing  =  source/switches 

The  characters  you  type  before  the  comma  become  the  name  of  the  rel 
file.  The  characters  you  type  between  the  comma  and  the  equal  sign  become 
the  name  of  the  fisting  file.  The  source  file  name  appears  after  the  equals 
sign,  macro  assumes  extensions  rel,  lst,  and  mac  so  you  need  not  type 
them.  If  you  do  not  desire  these  extensions,  then  add  the  desired  extension 
after  the  name  of  the  file — for  example,  JUNKBLA.  The  default  mode  of 
the  generated  machine  code  separates  the  bits  into  opcode  bits  (0  to  8), 
ac  bits  (9  to  12),  indirect  bit  (13),  index  bits  (14  to  17),  and  memory  (18  to 
35).  Though  not  true  machine  code,  this  format  is  easy  to  read.  Including 
the  switch  G  will  make  all  36  bits  continuous.  For  further  information 
about  the  switches,  type  H,  and  a  help  file  will  print  out.  Type  the  fol- 
lowing to  print  out  a  listing  of  example  12: 

*.EXAM12   =   EXAM  1 2 
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(Because  file  names  must  be  no  longer  than  six  characters,  we  call  the  file 
exam  12. mac.)  macro  would  look  for  a  file  exam  12. mac  and  create  a  file 
exami3.lst.  Since  no  file  name  appears  before  the  comma,  macro  would 
not  create  an  exami2.rel  file.  If  all  is  well,  a  "no  error"  message  will 
appear  (if  the  program  contains  errors,  the  printout  will  list  them  and  you 
will  need  to  return  to  the  editor  to  make  corrections).  Finally,  you  must 
type  control-Z  to  get  out  of  macro  and  use  the  tops-20  type  command, 
type  exami2.lst,  to  obtain  a  copy  of  the  list  file.  The  following  example 
illustrates  this  process.  (Due  to  space  limitations,  comments  were  removed 
before  sending  example  12  to  macro;  a  real  program  would  contain 
comments.) 


EXAMPLE  12 


MACRO   7.53A  (  1  1 


000004 


000000  ' 

000000 

000010 

00500 

000001  ' 

201 

01 

0 

00 

000101 

00B00 

000002  ' 

200 

03 

0 

00 

000000  ' 

00700 

000003  ' 

200 

02 

o 

04 

000000  ' 

00800 

000004  ' 

104 

00 

0 

00 

000224 

00900 

000005  ' 

320 

IB 

0 

00 

000014  ' 

01000 

00000B  ' 

201 

01 

0 

00 

000015 

01  100 

000007  ' 

104 

00 

0 

00 

000074 

01200 

000010  ' 

201 

01 

0 

00 

000012 

01300 

00001  1  ' 

104 

00 

0 

00 

000074 

01400 

000012  ' 

312 

02 

0 

00 

000014  ' 

01500 

000013  ' 

344 

04 

0 

00 

000001  ' 

01  BOO 

000014  ' 

104 

00 

0 

00 

000170 

01700 

000001  ' 
NO  ERRORS  DETECTED 
PROGRAM  BREAK    IS  000015 
CPU  TIME  USED  00:00.599 
BOP   CORE  USED 
EXAMPLE  12 
MAC 


52)    TIME  DATE   PAGE  1 
00100  TITLE  EXAMPLE  12 

00200  SEARCH  MONSYM 

00300  RADIX  10 

00400  C0UNT=4 

BASE:  8 
START  :    MOVEI    1  . . PRIOU 
MOUE  3  ,  BASE 
MOUE  2  tSTART- 1 (COUNT) 
NOUTI 

ERJMP  DONE 
M00EI  1.13 
PBOUTX 
M00EI  1.10 
PBOUTZ 

CAME  2  ,  DONE 
AOJA  COUNT, START 
DONE:  HALTFZ 
01800  END  START 


EXAM  1 3 
BASE 
COUNT 
DONE 
ERJMP 
HALTFX 
NOUTI 
PBOUTZ 
START 
. PRIOU 


320700 
104000 
104000 
104000 


MACRO  I53A( 
DATE  TIME 

000  000  ' 
000004 
000014 ' 
000000 
000170 
000224 
000074 
000001 
000101 


1152)  time 


date   Pase  S-l 
SYMBOL  TABLE 


l  n  t 
i  n  t 
i  n  t 
i  n  t 


SIN 
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The  first  six  digits  on  each  line  represent  the  relocatable  address  in 
which  the  machine  code  is  stored.  The  apostrophe  signifies  that  the  address 
is  relocatable.  For  the  problem  above,  the  linker  will  reassign  locations 
by  adding  an  offset  (generally  140).  For  example,  000001'  references  the 
start  label.  When  the  program  was  executed,  start  had  an  address  of 
141.  The  symbol  table  shows  the  program  labels  (for  example,  base  000000') 
and  the  symbols  defined  by  the  monitor  (for  example,  haltf%). 

If  you  do  not  want  a  permanent  listing  of  the  file,  you  can  type  this 
command: 

*  » TT Y :    =   EXAM  1 2 

It  will  send  the  lst  file  directly  to  the  terminal.  The  following  command 
designates  the  terminal  as  both  source  and  destination. 

*  » TT Y :    =  TTY: 

This  command  is  a  quick  way  to  check  machine  code.  If  you  will  be  using 
labels  and  symbols,  type  passi  after  the  star  prompt  and  follow  with  a 
carriage  return  and  any  standard  assembly  expression,  such  as  I  =  3.  After 
you  have  typed  all  symbols,  type  PASS2  after  the  star.  If  you  do  not  plan 
to  use  labels,  you  can  skip  passi.  Once  you  are  in  PASS2,  after  you  have 
typed  an  assembly  line  and  a  carriage  return,  the  computer  will  imme- 
diately generate  the  machine  code  for  that  line  and  display  it  on  the  tty. 

5.5  Negative  Numbers 

The  computer  stores  numbers  in  memory  locations  in  binary  form.  Since 
memory  locations  contain  a  finite  number  of  bits  (36  bits  in  the  decsys- 
tem-20),  a  memory  cell  has  a  ceiling  on  the  largest  number  it  can  hold. 
For  example,  if  only  4  bits  were  available,  then  the  largest  binary  number 
would  be  a  15.  The  number  of  bits  also  restricts  the  number  of  different 
numbers  that  the  memory  word  can  represent.  A  4-bit  word  can  represent 
only  16  unique  numbers,  one  possible  representation  being  the  numbers 
0  to  15. 

What  about  negative  numbers?  In  arithmetic,  negative  numbers  are  as 
useful  as  positive  numbers.  Given  a  finite  number  of  symbols,  half  the 
symbols  could  represent  positive  numbers  and  the  other  half,  negative 
numbers.  A  4-bit  word  would  then  allow  eight  symbols  for  positive  num- 
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bers  0  to  7,  leaving  the  other  eight  symbols  (8  to  15)  to  represent  negative 
numbers  ( - 1  to  -  8)  in  some  way.  Consider  a  three-digit  automobile  odom- 
eter, for  example.  If  you  clear  the  odometer  and  then  drive  1  mile,  it  will 
read  001.  If  you  clear  the  odometer  and  drive  in  reverse  for  1  mile,  it  will 
not  read  -  1  but  999.  If  you  drive  the  car  backward  2  miles,  the  odometer 
will  read  998,  representing  -  2.  We  refer  to  positive-looking  symbols  (998) 
that  represent  negative  numbers  ( -2)  as  signed  numbers.  When  treated 
as  positive  numbers,  they  are  called  unsigned  numbers. 

In  any  base,  we  can  represent  - 1  by  the  largest  unsigned  number  in 
the  base,  since  the  largest  symbol  is  1  less  than  0 — that  is,  adding  1  to 
the  largest  number  equals  0  ( -  1  +  1  =  0)!  (If  the  odometer  reads  999 
and  you  drive  one  more  mile,  it  will  then  read  000.)  One  problem  with  this 
representation  is  the  possibility  of  overflow.  If  half  the  numbers  on  our 
1000-number  odometer  are  to  be  negative  numbers,  then  the  largest  pos- 
itive number  the  odometer  can  represent  is  499.  If  we  add  1  to  499,  we 
would  expect  a  result  of  500,  but  since  500  to  999  are  negative  numbers, 
we  cannot  get  a  positive  sum  of  499  +  1.  The  computer  will  catch  this 
error  and  print  an  overflow  error  message  (which  we  will  discuss  more 
later). 

Let  us  now  look  at  how  to  calculate  the  signed  representation  of  a 
number.  If  we  assume  a  positive  number  A,  we  must  solve  the  following 
equation  to  find  its  negative  symbol: 

A  +  symbol  =  0 

Algebraically,  the  solution  is 

symbol  =  -A 

However,  we  must  take  into  account  the  finite  number  of  digits.  With  a 
fixed  number  of  bits,  the  largest  unsigned  number  represents  a  -  1.  On 
our  odometer,  this  number  is  999.  Given  this  fact,  we  can  proceed  as 
follows: 

A  +  symbol  =  0 

A  +  (symbol  -  1)  =  - 1 
symbol  -  1  =  - 1  -  A 

symbol  -  1  =  999  -  A 

symbol  =  999  -  A  +  1 

Thus,  to  determine  the  negative  value  of  123,  for  example  ( - 123),  we 
perform  this  calculation: 
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symbol  =  999  -  123  +  1 
symbol  =  876  +  1 
symbol  =  877 

Since  the  representation  of  A  - 1  is  the  largest  number  (999),  we  will 
never  borrow  when  doing  subtraction.  The  result  of  each  digit  subtraction 
is  the  complement  of  the  digit.  Two  numbers  are  complements  if,  when 
added,  they  equal  the  largest  digit  in  the  base — for  example,  0  and  9,  1 
and  8,  2  and  7,  and  so  on.  The  simple  way  to  find  a  negative  number  is  to 
form  the  complement  of  the  number  (using  all  digits,  even  leading  Os)  and 
add  1.  Using  a  three-digit,  base  10  representation,  the  following  table 
shows  the  negative  values  of  two  numbers. 

Number         Complement         Add  1  Symbol 
-21  978  979  979 

-423  576  577  577 

The  above  process  finds  the  representation  of  a  number  such  that  a  0 
results  when  the  number  is  added  to  itself.  We  can  start  with  a  negative 
representation  and  find  its  magnitude  using  the  same  method.  (Negative 
representation  plus  magnitude  yields  0.) 

Symbol  Complement         Add  1  Magnitude 

979  020  021  21 

999  000  001  1 

The  process  is  the  same  in  the  binary  system;  in  fact,  it  is  even  simpler. 
The  only  two  characters,  0  and  1,  are  complements  of  each  other.  The 
following  table  works  with  a  5-bit  binary  number. 

Number         Complement         Add  1  Symbol 
110  11001  11010  11010 

1010  10101  10110  10110 

You  can  easily  recognize  a  negative  binary  number  by  the  1  in  the  left- 
most bit;  positive  numbers  always  have  a  0  in  the  left-most  bit.  Because 
the  left  bit  provides  these  clues,  it  is  called  the  sign  bit. 

Converting  negative  numbers  to  magnitude  follows  the  same  process 
we  used  above. 

Symbol  Complement         Add  1  Magnitude 

11011  00100  00101  101 

iooio         onoi  omo  mo 
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A  few  examples  using  three-digit  octal  numbers  will  help  in  working  with 
the  decsystem-20.  Remember  that  the  largest  octal  digit  is  7;  therefore 
-  1  is  777,  and  complements  are  0  and  7,  1  and  6,  2  and  5,  and  3  and  4. 

Number  Complement  Add  1  Symbol 

21  756  757  757 

357  420  421  421 

140  637  640  640 

The  following  examples  convert  negative  numbers  to  positive  numbers: 

Symbol  Complement  Add  1  Magnitude 

757  020  021  21 

421  356  357  357 

640  137  140  140 

Now  that  we  have  unique  representations  of  negative  numbers,  subtrac- 
tion becomes  addition! 

A  -  B  =  A  +  (-B) 

where  we  replace  the  symbol  ( -  B)  with  its  signed  complement  and  add 
it  to  A.  Assuming  a  three-digit,  base-10  word,  we  can  perform  the  follow- 
ing calculations: 

55  -  21  =  055  +  979  =  034  =  34 
8   -  21  =  008  +  979  =  987 


You  might  expect  the  first  example  to  produce  an  answer  of  1034,  but 
because  we  have  no  room  for  the  1,  the  correct  answer  is  34!  This  homeless 
1  is  a  carryout,  and  we  ignore  such  carryouts  when  doing  signed  arith- 
metic. The  second  example  produces  a  negative  result,  987.  To  find  the 
magnitude,  first  determine  the  complement  (yielding  012)  and  then  add  1 
(013). 

Now  that  we  understand  how  negative  numbers  are  formed  we  can 
explain  the  problem  with  movei  AC,  -  i.  This  does  not  place  a  minus  1  into 
ac.  The  immediate  mode  of  addressing  deals  only  with  bits  18  to  35,  the 
right  half  of  a  memory  word.  Any  information  in  the  left  half  of  the  oper- 
and is  not  used  and  is  replaced  by  000000!  A  - 1  in  octal  is  777777777777, 
representing  l's  in  all  36  bits.  The  left  half  contains  information.  A  movei 
ac,  -  l  would  load  ac  with  000000777777,  not  - 1.  The  instruction  movei 
ac,  l  works  because  the  word  1  is  000000000001,  with  the  left  half  con- 
taining 000000. 
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A  final  note  on  word  size  and  precision.  Do  not  assume  that  word  size 
determines  the  largest  number  the  computer  can  produce  (precision).  The 
word  size  simply  limits  the  number  that  a  single  memory  word  can  hold. 
We  can  produce  larger  numbers  by  concatenating  memory  words.  Thus, 
a  ten-digit  number  could  use  ten  memory  locations;  each  word  holds  one 
digit.  The  programmer  must  keep  track  of  all  carrying,  digit  loading,  and 
so  on.  Overflow  occurs  only  in  the  memory  location  storing  the  most 
significant  digit. 

5.6  Summary 

This  chapter  has  examined  how  source  code  (mnemonics)  is  converted 
into  machine  code  (l's  and  O's).  To  understand  this  process  it  is  necessary 
to  learn  other  radix  systems,  especially  base  2.  Because  the  decsystem- 
20  has  such  a  large  word  size  (36  bits),  opcodes,  accumulator,  and  effective 
operand  information  can  be  expressed  conveniently  in  just  one  word  (we 
have  not  discussed  extended  addressing).  However,  other  computers  with 
smaller  word  sizes  generally  require  more  than  one  word  to  code 
instructions. 

macro  allows  for  examination  of  the  machine  code  version  of  an  assem- 
bly program,  checks  for  assembly  errors,  and  has  the  capability  of  cre- 
ating a  relocatable  file  and  a  listing  file  from  the  supplied  source  file. 

Words  take  on  meaning  through  controlling,  setting,  and  clearing  bits. 
In  the  next  chapter  we  will  examine  such  operations  on  bits. 

5.7  Exercises 

1.  How  many  bits  are  there  in  a  decsystem-20  word?  Explain  the  part 
each  bit  plays  in  coding  the  general  instruction  "label:  opcode  ac, 
operand  ;comment." 

2.  Convert  the  following  numbers  to  the  radix  requested: 

(a)  10110111  (binary)  to  decimal 

(b)  7435  (octal)  to  decimal 

(c)  143  (decimal)  to  octal 

(d)  143  (decimal)  to  binary 

(e)  1A4  (hexadecimal)  to  decimal 

3.  Assume  a  word  size  of  6  bits  in  the  following  questions  and  calculations, 
(a)    What  is  the  largest  positive  binary  number  represented  by  this 

word  size? 
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(b)  What  is  the  largest  negative  binary  number  possible? 

(c)  Express  10  and  -  15  in  binary. 

(d)  Calculate  (10  -  15)  in  binary. 

(e)  Convert  the  answer  to  d  to  decimal. 

Hand  code  the  following  program  into  machine  language.  (Check  your 
work  by  using  macro.) 


EXAMPLE  13 
SEARCH  MONSYM 

HERE:        BLOCK  5 

CR:  ASCIZ/ 

/ 

START:      MOOEI   4  .5 

MOVEI  2.0 
NEXT:  PBIN/T. 

MOOEM   1 .   HERE ( 2 ) 

ADD  I  2.1 

SOJG  a  ,  NEXT 

SUBI  2.1 

HRROI    1  ,  CR 

PSOUTX 
OUT:  MOMEI   2.  HERE 

MOVE   1  ,  @2 

PBOUTZ 

HALTFX. 
JRST  START 

END  START 

Encode  the  following  program. 


000000  ' 

000000 

000012 

000001  ' 

000000 

000104 

000002  ' 

200100 

000000  ' 

000003 ' 

271 140 

0000G5 

000004  ' 

201200 

000000 

000005  ' 

322140 

00001 1  ' 

OOOOOG  ' 

200244 

000001  ' 

000007  ' 

302240 

00004 1 

000010 ' 

2741G0 

000002  ' 

00001 1  ' 

104000 

0  0 0170 

Write  a  table  that  will  make  an  ascii  table  of  capital  letters  and  their 
hexadecimal  values. 

A  41 


Z  7A 
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Logical  Operators  and  Shifts 


In  a  digital  computer,  electronic  switches  are  the  hardware  that  perform 
all  operations.  The  computer  recognizes  the  l's  and  O's  of  machine  code  as 
voltage  levels  (typically  5  volts  and  0  volts).  You  can  think  of  the  hardware 
as  a  series  of  black  boxes  with  input  and  output  lines.  On  the  input  lines 
are  voltages  representing  machine  code.  The  logic  gates  inside  a  black 
box — representing  and,  or,  and  not  conditions — determine  the  relation- 
ship between  the  input  and  output  patterns.  Electronic  logic  gates  use 
truth  tables,  which  are  essentially  binary  logic  tables. 


and,  or,  and  not  logic  gates  govern  virtually  all  computer  operations, 
even  arithmetical  operations,  through  manipulation  of  bits,  not  is  a  unary 
operator  (one  input  and  one  output).  The  following  is  a  truth  table  for 
not: 


6.1  Logical  Operations 


in 


0 
1 


out 
1 
0 
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not  is  generally  known  as  cOMplementing.  The  not  or  COM  replaces  each 
1  with  a  0  and  each  0  with  a  1.  The  com  of  0110  is  1001.  The  and  and  OR 
are  binary  operators  (two  inputs  and  one  output).  Below  are  and  and  or 
truth  tables. 


inl 

in2 

AND 

inl 

in2 

OR 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

1 

1 

0 

0 

1 

0 

1 

1 

1 

1 

1 

1 

1 

The  result  of  1  and  0  is  0.  The  result  of  1  or  0  is  1.  If  we  read  1  as  "true" 
and  0  as  "false,"  we  can  interpret  these  logical  operations  very  much  as 
we  would  their  English  language  equivalents.  For  example,  a  compound 
sentence  using  the  conjunction  and  is  true  only  if  each  clause  is  true, 
while  a  compound  sentence  using  or  is  true  if  either  clause  is  true.  A 
binary  operator  has  four  output  states,  each  of  which  can  be  1  or  0.  There- 
fore, we  have  16  possible  output  patterns  (0000  to  1111),  all  of  which  we 
can  construct  using  and,  or,  and  not  logic  operators.  Because  of  this  not 
all  16  patterns  are  assigned  unique  operator  names.  Patterns  that  are 
used  quite  frequently  have  unique  names,  nand  and  nor,  meaning  not 
and  and  not  or,  for  example,  are  complements  of  the  operators,  xor  is 
an  exclusive  OR.  Thus,  OR  is  generally  referred  to  as  inclusive  OR,  ior. 
(decsystem-20  recognizes  either  or  or  ior.)  eqv,  the  equivalent  opera- 
tor, is  the  complement  of  xor.  Below  are  truth  tables  for  these  common 
operators. 


inl 

in2 

AND 

NAND 

OR 

NOR 

XOR 

EQV 

0 

0 

0 

1 

0 

1 

0 

1 

0 

1 

0 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

1 

0 

1 

1 

1 

0 

1 

0 

0 

1 

As  mentioned  above,  all  patterns  can  be  constructed  from  the  operators 
and,  ior  and  not.  The  xor  operator  is  equivalent  to  the  "complement  of 
inl  ANDed  with  in2,  the  result  of  this  is  iORed  with  inl  ANDed  with  the 
complement  of  in2" — that  is, 

inl  xor  in2  =  ((not  inl)  and  in2)  ior  (inl  and  (not  in2)) 

You  can  use  the  logical  operations  to  set  bits  (make  them  l's)  or  clear  bits 
(make  them  0's).  A  bit  and  0  will  clear  it.  One  way  to  make  a  number 
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even  is  to  clear  its  least  significant  bit  (lsb).  If  the  target  number  is  in 
an  ac,  then 

zero:  0 

•  f  4 

AND   ac  »  zero 

I  •  4 

will  set  the  lsb  to  0,  along  with  all  the  other  bits!  Thus,  zero  is  the  wrong 
mask,  something  used  to  set  and/or  clear  bits  in  another  word.  Instead 
you  need  a  word  of  l's  in  all  bits  except  for  bit  35,  which  should  have  a  0. 
The  directive  "B  will  change  the  radix  on  one  line;  it  instructs  the  assem- 
bler to  read  what  follows  the  B  as  a  binary  number,  independent  of  any 
radix  directive.  (Two  similar  directives,  o  and  D,  direct  the  assembler 
to  read  the  next  symbol  in  octal  and  decimal,  respectively.)  The  following 
will  clear  the  lsb  without  changing  the  other  bits  in  ac. 

LSB :  " B  1 1 1 1 1  1  1  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 

•  *  • 

AND   AC  i  LSB 

•  •  * 

You  can  simplify  mask  construction  by  using  a  complementing  operation. 
LSB:  1 

t   *  * 

ANDCM  AC  i  LSB 

•  •  * 

This  opcode  complements  the  operand  (memory)  and  then  ands  it  to  ac. 
To  clear  bits  33  and  35,  use 

MASK:        ~B101        i    or  MASK:  5 

t    •  • 

ANDCM   AC  i  MASK 

•  •  * 

Use  the  ior  operation  to  set  specific  bits.  The  statements  below  will  set 
bits  32  and  35  without  changing  the  other  bits  in  ac. 

MASK :        "B1001 5        or  MASK :  9 

I    •  * 

IOR  AC  ,  MASK 
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Using  the  same  mask, 


IORCM  AC  ,  MASK 

guarantees  all  bits  but  32  and  35  are  set.  (The  value  of  bits  32  and  35  will 
not  necessarily  be  0;  their  values  will  remain  what  they  were  before  the 
operation.)  To  set  the  ac  to  a  specific  pattern,  you  could  use  a  move 
operation;  however,  when  dealing  with  logic  relations,  use  the  opcode 
setx  (set  to). 

PATTERN:      some   ones    and  zeros 

14  4 

MOUE  AC .  PATTERN 

is  the  same  as 

SETM  AC  i  PATTERN 

This  statement  means  "set  the  ac  to  the  value  in  pattern."  (The  m  in 
SETM  does  not  make  the  flow  from  left  to  right  as  in  movem.)  The  following 
copies  ac  to  here,  set  to  the  value  of  the  ac  the  memory 

SETAM  AC  >  HERE 

We  will  mention  two  more  setx  instructions  (see  Appendix  B  for  other 
logic  opcode  modes).  To  clear  a  location,  use 

SETZ   AC»  iset    the   ac   to  zero 

•  *  * 

SETZM     HERE        iset   here   to  zero 
To  fill  a  location  with  l's,  use 

SETO  AC»  iset   the   ac   to  ones 

•  ♦  * 

SETOM  HERE         iset   here   to  ones 

The  reader  is  encouraged  to  glance  at  the  opcode  table  in  Appendix  B  and 
examine  the  various  logic  opcode  modes. 
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6.2  Arithmetic  and  Logic 


Addition  using  logic  operations  is  analogous  to  a  black  box  with  two  inputs 
and  two  outputs.  Each  input  line  will  have  a  single  digit,  and  the  black 
box  will  add  the  digits  and  place  the  sum  on  one  of  the  output  lines  and  a 
possible  carry  on  the  other  output  line.  For  example,  when  adding  6  and 
5,  the  result  is  a  sum  of  1  and  a  carry  of  1. 


6  +  5  =  11 


6 
5 


sum 
carry 

In  general,  addition  involves  three  digits — the  two  digits  you  are  adding 
plus  a  possible  previous  carry.  The  previous  carry  is  called  a  carryin.  For 
example,  let's  add  26  and  35:  first,  add  the  6  and  5,  yielding  a  1  plus  a 
carry.  Next,  add  the  2  and  3,  yielding  a  5.  Then  add  5  to  the  previous 
carry,  yielding  6.  The  final  answer  is  61.  To  find  the  second  digit  of  the 
answer,  we  performed  two  additions  involving  the  three  digits  2,  3,  and 
1.  Because  of  the  carryin,  two  black  boxes,  or  half-adders,  are  necessary, 
as  shown  in  the  figure  below. 


CARRYIN 


DIGITl- 
DIGIT2 


SUMl 
CARRYl 


SUM 
CARRY 


Adding  sumI  of  the  digits  to  the  carryin  gives  the  sum  of  the  three  digits. 
What  about  a  possible  resulting  carry,  a  carryout?  No  matter  what  radix 
you  are  working  in,  adding  pairs  of  digits  and  a  possible  carry  will  never 
generate  a  carry  greater  than  1.  Consider  the  base-10  problem  of  9  plus 
9  plus  a  carry.  The  answer  is  9  plus  a  carry  of  1.  Carries  are  either  0  or 
1.  A  carry  can  come  from  adding  digits  (for  example,  8  plus  4),  or  from 
the  digit  sumI  and  a  carryin  (for  example,  9  plus  1),  but  never  from  both 
places.  Below  is  a  full  adder. 


CARRY  IN 


DIGITl 
DIGIT2 


SUMl 
CARRYl 


SUM 
CARRY 


SUM 


OR 


•CARRYOUT 
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The  logic  gate  OR  is  part  of  the  full  adder.  The  binary  addition  table  below 
helps  illustrate  the  half-adders  in  the  black  boxes. 


Digitl 
0 
0 
1 
1 


Digit2 
0 
1 
0 
1 


Sum 
0 
1 
1 
0 


Carry 
0 
0 
0 
1 


This  table  shows  that  the  result  of  adding  a  binary  0  to  a  binary  1  is  a 
sum  of  1  and  a  carry  of  0.  As  we  saw  in  the  table  of  logic  operators  in  this 
chapter,  the  sum  column  above  is  the  same  as  an  exclusive  or,  xor,  and 
the  carry  column  is  the  same  as  an  and.  A  half-adder  consists  of  an 
exclusive  OR  and  an  and  gate: 


DIGIT! ■ 


DIGIT2  ■ 


XOR 

 1 

AND 

 < 



SUM 


•  CARRY 


An  assembly  version  of  the  full  adder  follows. 


SETM  SUM1  ,  DIGIT1 
SETM  CARRY  1  ,  DIGIT1 
XOR  SUM1  .  DIGIT2 
AND  CARRY  1  ,  DIGIT2 


iput   disitl    in   first  half-adder 

iform   sum   of   disitl    and  disit2 
iform  carry 


SETM  SUM  ,  SUM1 
SETM   CARRY.  SUM1 
XOR  SUM  i   CARRY  IN 
AND  CARRY  t  CARRYIN 
I  OR  CARRY  »   CARRY  1 


5pi.it  first  sum  in  second  half-adder 

?  a  d  d   previous   suml   and  carry  iri 
iSet    resulting  carry 
ior   the  carries 


To  add  an  N  bit  binary  number  to  another  N  bit  binary  number,  N  full 
adders  are  necessary — in  other  words,  a  full  adder  for  each  bit.  Given 
this  reasoning,  we  would  need  N  versions  of  the  above  program  in  assem- 
bly! (Yes,  easier  ways  do  exist.)  Binary  addition,  and  therefore  any  radix 
addition,  is  possible  using  logic  gates. 

To  subtract,  the  computer  needs  a  way  to  form  a  signed  number.  As 
you  recall,  to  form  a  signed  number  you  must  take  the  complement  of  the 
number  and  add  1.  Binary  system  complementing  occurs  via  a  not  gate: 
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the  complement  of  a  1  is  0  and  vice  versa.  To  form  the  negative  value  of 
an  N  bit  number,  you  must  use  a  not  gate  for  each  bit  and  then  add  1. 
The  assembly  version  follows. 

SETCM  AC.   NUM  Inot   each  bit 

ADD  I   AC.    1  iadd  1 

The  accumulator  now  has  the  negative  of  the  number  in  num.  As  you 
learned  in  Chapter  5,  subtraction  becomes  addition  upon  generation  of 
the  signed  representation. 

What  about  multiplication?  Multiplication  is  essentially  repetitive  addi- 
tion. But  shifting  provides  an  alternative.  To  multiply  5  times  10,  we  could 
add  5  to  itself  10  times,  but  we  generally  put  a  0  on  the  right  of  the  num- 
ber. The  original  number  then  shifts  one  position  to  the  left  (5  x  10  = 
50).  In  any  radix,  shifting  a  number  to  the  left  is  the  same  as  multiplying 
the  number  by  the  radix.  In  binary,  shifting  a  number  one  place  to  the 
left  is  the  same  as  doubling  the  number.  Assembly  language  has  three 
ways  to  shift  the  contents  of  an  accumulator:  logical,  arithmetical,  and 
rotational  shifts.  The  sign  of  the  effective  address  determines  the  direc- 
tion of  the  shift,  which  can  be  either  to  the  left  or  to  the  right.  The 
magnitude  of  the  effective  address  determines  the  number  of  bits  shifted. 
The  three  shifts  control  what  happens  to  the  vacated  bit  position  when 
the  bit  pattern  in  a  word  shifts.  A  Logical  shift  (lsh)  fills  the  vacated  bit 
position  with  a  0.  The  arithmetical  shift  (ash)  to  the  right  copies  the  sign 
bit  (bit  0)  into  bit  0  and  bit  1.  The  Arithmetical  shift  to  the  left  fills  bit  35 
with  a  0,  and  bit  1  is  lost.  This  method  prevents  negative  numbers  from 
shifting  into  positive  numbers.  The  sign  bit  never  changes  with  an  arith- 
metical shift.  The  final  shift,  a  ROTational  shift  (rot),  is  a  cyclic  operation 
that  "connects"  bits  0  and  35.  Left  rotational  shifts  copy  bit  0  into  bit  35; 
right  shifts  copy  bit  35  into  bit  0.  No  bits  are  lost  in  a  rotational  shift;  it 
simply  rearranges  them.  Table  6-1  illustrates  these  shift  patterns. 


TABLE  6-1.    Shifting  Table 


Shift 

Left  (fill 

Right  (fill 

Example 

bit  35  with) 

bit  0  with) 

Logical 

0 

0 

LSH  AC,  AMT 

Arithmetical 

0 

previous  0th 

ASH  AC.  AMT 

Rotational 

bitO 

bit  35 

ROT  AC,  AMT 
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The  following  will  multiply  the  contents  of  num  by  4: 


ASH  NUM  i   2  ishift    left   2  positions 

Thus,  (00010)  becomes  (01000).  To  divide  the  contents  of  num  by  8,  use 

ASH   NUM  i  -3 

in  which  case  (01101)  becomes  (00001).  Note  that  a  3-bit  remainder  is  lost: 
24/8  =  25/8  .  .  .  =  31/8.  MASKing  NUM  with  a  7,  binary  111,  is  the  first 
step  in  finding  the  remainder. 

SETM  REMAINDER.   NUM  icopy   NUM   to  remainder 

AND  I   REMAINDER.   7  imasK   off  all 

5  b  u  t    the  last 

5three  bits 
ASH  NUM  ,  -  3  idiuide  by  S 

The  quotient  is  in  num,  and  the  remainder  is  in  remainder.  Because  the 
effective  address  is  always  calculated  first  and  that  value  does  the  shifting, 

MOVEI   2.  3 
ASH  NUM  .      ( 2 ) 

is  the  same  as  "ash  num,  3."  (Examples  of  lsh  and  rot  will  come  later.) 

Several  tricks  are  possible  when  you  multiply  by  a  nonbinary  number. 
To  multiply  by  15,  note  that  15  is  16  -  1,  so  num*15  is  the  same  as  "num*(16 

-  1)  =  NUM*16  -  NUM." 
SETM  AC  ,  NUM 

ASH     AC  »  4  imultipl/  by  IE 

SUB     AC.   NUM         Ssubtract  num 

In  base  2,  one  cannot  hope  to  survive  on  tricks,  however;  a  more  general 
algorithm  is  necessary.  The  normal  way  to  multiply  is  to  start  with  the 
right-most  bit  and  to  right  justify  each  partial  product  with  the  multiply- 
ing bit.  For  example, 
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100 
101 


100 

0 

100 


10100 

You  can  also  start  with  the  left  bit  and  then  left  justify. 

100 
101 

100 
0 

100 


10100 

Every  bit  of  the  multiplier  contributes  a  partial  product,  which  is  either 
0  or  a  copy  of  the  multiplicand.  Each  partial  product  shifts  left  before  the 
addition  to  find  the  product.  A  multiplication  algorithm  follows. 

ans:  =  0 

bit:  =  value  of  left-most  bit  of  the  multiplier 
for  i:  =  1  to  numberofbitsinaword  do 
begin 

shift  ans  1  position  to  the  left 
if  bit  is  1  then  add  multiplicand 
shift  multiplier  one  to  the  left 
bit:  =  value  of  left-most  bit  of  the  multiplier 
end 
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The  following  assembly  version  multiplies  5  by  15. 


TITLE  EXAMPLE  14 

SEARCH  MONSYM 

RADIX  10 

ANS  =  5 

C0UNTER=6 

MULP=7 

MULC=8 


imultiplier  ac 
imultiplicand  ac 
in  umber   of  bits 


? mu 1 t i p 1 y i n 3   uia  shifting 


START:    MOUEI    COUNTER. 3G 


MOUEI   MULP.  5 
MOUEI   MULC  .  15 
SET2  ANS  . 


FOR: 


LSH  ANS  »  1 
SKIPG  MULP 


itest   s  i  3n  bit 


ADD   ANS  >  MULC 


LSH   MULP  .  1 


SOJG  COUNTER  i  FOR 
MOUEI  1..PRI0U 


?  s  e  t   up   1 1  y 


MOUEI  3.  10 
MOUE  Zi  ANS 
NOUTZ 

HALTFZ 
HALTFZ 
END  START 


The  bit  doing  the  multiplying  always  shifts  to  the  zero-bit  position,  which 
is  also  the  sign-bit  position.  If  the  zero-bit  bit  is  set,  then  the  computer 
can  treat  the  number  as  negative.  If  the  zero-bit  is  cleared,  then  it  can 
treat  the  number  as  positive.  Testing  of  the  bit  was  done  using  those  facts. 
The  interested  reader  can  try  division. 


Packing  in  programming  means  placing  more  than  one  piece  of  informa- 
tion in  a  memory  word.  As  you  learned  earlier,  you  can  send  a  message 
to  the  terminal  by  packing  the  message  via  asciz  and  then  setting  up  the 
psout%  with  the  unimaginative  hrroi  opcode.  In  this  section,  we  will 
simulate  the  psout%  via  pbout%s  and  use  a  shift  opcode  to  accomplish 
the  unpacking.  For  example,  to  unpack  the  message 

WORD:  ASCIZ/ABCDE/ 


6.3  ASCII  Bit  Packing  and  Unpacking 
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recall  that  each  character  uses  7  bits.  In  location  word,  the  letter  A  uses 
bits  0  to  6,  the  letter  B  uses  bits  7  to  13,  and  so  on.  pbouto  sends  the 
right -most  7  bits  (29-35)  in  accumulator  1  to  the  terminal.  The  program 
below  uses  lsh  with  an  index-effective  addressing  mode  to  allow  use  of  a 
loop  to  shift  and  pbout%.  Note  that  the  statement  has  no  radix  directive; 
therefore,  octal  is  the  assumed  radix.  Recall  also  that  "D  is  an  assembly 
directive  that  tells  the  assembler  to  treat  the  following  number  as  a  dec- 
imal number.  This  directive  supersedes  any  radix  directive,  but  only  for 
the  number  following  D. 


TITLE  EXAMPLE 
SEARCH  MONSYM 
WORD:  ASCIZ/ABCDE/ 
START:      MOVNI  2»*D36 

MOVEI  3.5 
OUT:         ADD  I  2.7 

MOUE    1  .  WORD 
LSH   1  ,  (2) 


PB0UT2 
SOJN  3 
HALTFZ 
END  START 


OUT 


15  iunpackins   via  LSH 


lac  2  set  decimal  -36 
55  characters  in  WORD 
ieach   shift   is  7  less 

ishift   character  into 
ibits  (29-35) 

5if   not   0   3et   next  char 


Let  us  now  repeat  the  problem,  using  a  ROT  shift,  wrhich  is  more  efficient 
than  lsh  for  this  example. 


TITLE  EXAMPLE 
SEARCH  MONSYM 
WORD:  ASCIZ/ABCDE/ 
START:      MOVEI  3.5 

MOVE   1 »  WORD 
ROUT:        ROT    1  .7 

PBOUTZ 

SOJN  3.  ROUT 

HALTFZ 

END  START 


IB         iunpack   via  ROT 
i  5  chars 

irot  bits  (0-6)  to 
5 (29-35) 


Now  that  we  have  an  idea  how  to  unpack  a  location,  let  us  examine 
packing.  The  assembly  directive  asciz  will  pack  for  us,  but  the  directive 
B  is  also  worth  noting.  For  instance,  the  following  example  places  an  octal 
33  right  justified  at  bit  9. 


BEX AM  :  33B9 
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The  directive  valueBn  logically  shifts  the  "value"  in  front  of  the  B  to  the 
nth  bit,  where  n  is  always  a  decimal  (0-35).  The  following  example  illus- 
trates one  of  the  common  uses  of  the  B  directive: 

CRLF:    15BB  +  12B13 

This  statement  places  a  15  right  justified  at  bit  6  and  adds  it  to  a  12  that 
is  right  justified  at  bit  13.  The  bit  positioning  prevents  overlap  between 
the  15  and  the  12.  If  we  were  to  unpack  this  message,  a  carriage  return 
(ASCII  15)  would  result,  followed  by  a  line  feed  (ASCII  13).  One  more 
example: 

WORD:    101BB  +   102B13  +    103B20  +   104B27  +  105B34 
WORD:        -DG5BG  +    'DGGB13  +  ... 

Except  for  the  trailing  null  word,  this  example  is  the  same  as  word:  asciz/ 
abcde/.  Below  is  an  algorithm  for  packing  characters  from  the  terminal. 

get  char 

while  char  not  carriage  return  do 
begin 

shift  char 

or  it  with  previous  chars 
decrement  shift 

end 

Because  parentheses  designate  indexed  addressing,  use  angle  brackets  to 
signify  arithmetic  grouping.  Thus,  3*<4  +  2>  is  the  same  as  3*6.  An 
assembly  version  of  packing  follows. 

TITLE  EXAMPLE  17  i    packing-  chars 

SEARCH  MONSYM 

MESSl:ASCIZ/type   in  up  to  4  chars   end  with   a  cr/ 
WORD:    Z  !same   as   BLOCK  1 

CR:        15  jASCII    of   carriage  return 

BYTE=7  jseuenbitstoachar 
START : HRRO  I    1  ,  MESS1 
PSOUT7. 

MOVEI   a,    " D<  3G-BYTE  >        iac   H   Set   a   decimal  29 
GETEM:  PBIN'/f, 

CAMN   1  ,  CR 
JRST   LF  iif   a   cr   then  Set 

iline  feed 

LSH   1.(4)  ishif t   ch   to  left 

IORM   1  i   WORD  ?put   ch    in  memory 

SUBI   4i   BYTE  idecrement   amt  shifting 

JRST  GETEM 
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LF: 


PB1N1 

HRROI  1  ,  CRLF 
PSOUTX 

HRROI  1  i  WORD 
PSOUT'.?. 


iSet   the    line  feed 

isend   a  cr   If   to  terminal 


!  s  en d  word  back  to 
ite rminal 


HALTFZ 
CRLF:  15BG+12B13 
END  START 

(Note:  monsym  defines  a  symbol  byte,  but  the  computer  searches  local 
symbol  tables  first;  thus,  it  takes  the  meaning  of  byte  from  the  program, 
not  monsym.)  Establishing  the  four-character  limit  guarantees  a  null  byte 
in  a  word.  psouto,  which  unpacks  the  input  message,  needs  a  null  for 
termination. 

To  pack  or  unpack  more  than  five  characters,  another  counter  is  nec- 
essary. In  this  case,  we  must  increment  the  memory  word  after  every 
five  characters,  as  illustrated  below. 

MOVE    1  i  WORD(COUNTER) 

The  next  chapter  discusses  opcodes  for  manipulating  strings. 


In  this  section,  we  will  look  at  a  nonarithmetic  application  of  bit  manip- 
ulation. Assume  we  have  a  data  base  containing  the  following  information 
about  a  group  of  people:  male/female,  married/single,  dead/alive,  and  pro- 
grammer/nonprogrammer.  We  could  ask  the  following  question  of  this 
data  base:  How  many  single,  alive  males  can  program?  The  program  seek- 
ing this  information  would  have  to  know  how  the  data  are  assigned  to 
each  record  (person).  A  high-level  language  could  use  a  double-subscript 
variable,  with  the  first  subscript  identifying  a  person  and  the  second  defin- 
ing properties  of  the  person.  The  array  would  be  as  follows. 

base(person,  property) 

where  property  =  1  might  refer  to  sex,  property  =  2  to  marital  status,  and 
so  on.  The  following  would  assign  personl  as  male,  single,  dead,  and  a 
nonprogrammer,  for  example. 

base(personl,l)  =  1  ;(male) 

base(personl,2)  =  0  ;(single) 

base(personl,3)  =  1  ;(dead) 

base(personl,4)  =  0  ;  (nonprogrammer) 


6.4  Data  Base  Bit  Packing  and  Testing 
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The  following  algorithm  could  then  help  us  answer  our  original  question. 

counter:  =  0 
person: = 1 

while  not  end  of  data  base  do 
begin 
if  base(person,  1)  =  1 
then  if  base(person,2)  =  0 
then  if  base(person,3)  =  0 
then  if  base(person,4)  =  1 
then  counter:  =  counter  +  1; 
get  next  person 
end 

This  approach  has  two  drawbacks,  however.  First,  it  uses  too  much 
computer  memory  space;  each  record  property  takes  up  a  memory  loca- 
tion. Second,  the  counting  program  contains  many  if/then  statements, 
which  create  a  long  program  that  is  difficult  both  to  read  and  write.  Let 
us  rethink  the  problem,  remembering  that  we  can  use  individual  bits  in  a 
computer  wrord.  One  w-ord  can  contain  a  complete  record  (an  individual), 
with  bit  35  signifying  sex,  bit  34  signifying  marital  status,  and  so  on.  (This 
method  is  possible  in  some  high-level  languages.)  To  load  a  record,  we 
use  the  logical  command  ior. 

SETZ  AC  »  iclcar   the  ac 

IOR  AC.    -B0101      iset   bits   33   and  35 

(Though  ior  AC,  5  w7ould  also  work,  the  B  notation  is  clearer.)  Once  the 
data  are  set,  we  can  place  them  into  the  data  base: 

MOVEM  AC  »   BASE ( PERSON ) 

where  base  is  the  location  of  the  first  record  and  the  ac  referenced  as 
person  indexes  into  the  data  base.  Now  to  count  the  number  of  single, 
alive,  male  programmers,  we  must  form  a  mask  representing  the  question: 

MASK:  "B1001 

and  loop  over  the  following  code: 

MOVE   AC.   BASE ( PERSON )  iset   a  record 

CAMN   AC.  MASK 
ADD  I   COUNT.  1 
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The  following  mask  will  reveal  the  number  of  dead  people  in  the  data  base 
(bit  33): 

DEAD:  B0100 

and  then  loop  over  the  following  code. 

MOUE   AC  ,   BASE( PERSON) 
AND  AC  ,  DEAD 
SKIPE  AC 

ADD  I    COUNT  »  1 

This  example  checks  whether  a  bit  is  set.  To  see  whether  a  bit  is  cleared, 
let  us  write  the  code  that  counts  all  the  single  people  in  the  data  base. 

SINGLE:  "BOOIO 

*    •  • 

MOUE   AC1  i  SINGLE 
MOVE   AC,    BASE ( PERSON ) 
ANDCM  AC1  ,  AC 
SKIPE  AC1 

ADD  I    COUNT, 1 

andcm  establishes  the  complement  of  the  value  in  ac.  If  the  bit  is  now 
set,  we  can  identify  that  person  as  single. 

An  opcode  is  available  to  test  bits.  We  will  discuss  only  two  versions  of 
the  many  test  opcodes,  tdne  and  tdnn. 

TDNx    AC  ,  MASK 

When  x  is  E,  the  computer  skips  the  next  instruction  if  all  the  bits  of  ac 
referred  to  in  the  mask  are  equal  to  0.  If  x  is  N,  the  computer  skips  the 
next  instruction  if  not  all  the  MASKed  bits  of  ac  are  0  (at  least  one  bit  is  a 
1).  For  a  single  bit,  tdnn  instructs  the  computer  to  skip  if  the  bit  is  set 
and  tdne  instructs  to  skip  if  the  bit  is  cleared.  The  following  illustrates 
how  to  test  if  a  person  is  single. 

MOUE   AC,   BASE ( PERSON ) 
TDNN  AC  ,  *B010 
ADD  I    COUNT,  1 


LOGICAL  OPERATORS  AND  SHIFTS 


67 


The  properties  of  the  preceding  data  base  are  so  far  simple  yes/no  or 
set/clear  conditions.  Let  us  add  the  property  of  age.  How  many  bits  are 
necessary  to  keep  track  of  age?  Since  each  bit  is  a  power  of  2,  7  bits  are 
adequate  since  they  can  represent  ages  from  0  to  127.  Let  us  then  use 
bits  25  to  31  for  the  age  information.  (If  we  had  only  this  one  multibit 
field,  the  right-most  7  bit  would  be  a  better  choice.)  Suppose  we  want  to 
find  out  how  many  18-year-olds  (binary  10010)  are  in  the  data  bank.  We 
might  try  ANDing  with  the  following  mask: 

AGE:  B 100 100000 

However,  this  approach  counts  all  ages  using  bits  28  and  30 — for  example, 
19,  22,  23,  and  so  on — which  do  not  even  include  all  ages  greater  than  17. 
To  work  with  numbers,  it  is  better  to  shift  the  number  field  to  the  right 
and  use  the  arithmetical  commands.  To  search  for  18-year-olds,  then,  the 
age  field  must  shift  right  four  positions.  We  can  use  lsh  since  the  sign  bit 
isn't  important.  To  consider  only  the  age  field,  we  can  mask  out  all  other 
bits  with  the  following. 

AGEMASK:  Bill  1  1  1  10000 

(This  mask  only  makes  sense  if  bits  0  to  24  contain  information.)  The 
following  code  will  count  the  number  of  18-year-olds  in  the  data  base. 

MOVE   AC.   BASE (PERSON) 
AND  AC  i  AGEMASK 
LSH  AC  t  -a 
CAIN  AC  i  D18 
ADD  I   COUNT,  1 

To  find  the  number  of  males  who  are  18  years  old  or  older,  first  test  bit 
35  to  see  if  the  record  represents  a  male.  If  the  record  is  a  male,  then 
check  age  as  above  using  cail  AC.18  rather  than  CAIN  AC,  is. 

You  can  determine  the  information  in  a  record  by  looking  at  each  bit  to 
see  if  it  is  set  or  cleared.  A  rotational  shift  is  one  way  to  perform  this 
test. 


BITTEST:  1 


MALE  : 
ROT: 


MARRIED 
ROT1  : 


MOVE   TEST,  BITTEST 
MOVE  AC  ,   BASE ( PERSON ) 
TDNE  AC  ,  TEST 

JRST  MALE 
print  female 
JRST  ROT 
print  male 
ROT   TEST,  1 
TDNE  AC  ,  TEST 

JRST  MARRIED 
print  sinsle 
JRST  ROT1 
print  married 


5  b  i  t  cleared 

?  n  o 

ices 


However,  a  simpler  way  is  available  to  find  out  what  a  record  contains. 
We  know  that  17  combinations  are  possible,  the  4  bits  (32  to  35)  and  the 
age.  The  age  of  the  person  is  not  the  challenge;  rather,  the  other  16 
possibilities  are.  Use  bits  32  to  35  as  a  pointer  into  a  ju  mp  table  that  signifies 
the  messages  to  be  printed.  For  example, 


MOVE  AC  ,   BASE ( PERSON ) 

AND  I  AC,  "Bllll  5set  just  bits  32-35 
JRST  MESSAGE(AC) 


MESSAGE   JRST  MESSOOOO 


JRST 
JRST 


MESS0001 
MESSOOIO 


MESSOOOO: 
MESSOOOl : 

•    I  * 

MESS1 1  1 1  : 


print  female  »  s  i  n  3 1 e  , alive  , no n programmer 
print   male  , single  ,  a  1  i  v  e tnonprosrammer 

print   male  , married  ,dead  (Programmer 


The  extra  jump  allows  for  the  possibility  that  the  printed  message  may 
take  up  more  than  one  memory  location,  in  which  case  the  indexing  mes- 
SAGE(AC)  would  no  longer  point  to  the  correct  message.  The  jrst  com- 
mands take  up  only  one  word;  therefore,  indexing  is  not  misaligned.  (The 
alert  reader  will  have  noted  that  the  jrst  labels  are  more  than  six  char- 
acters and  that  the  first  six  characters  are  not  unique!  These  labels  must 
change  to  prevent  all  the  jrsts  from  pointing  to  the  same  location!)  The 
word  print  is  pseudocode.  A  way  to  deal  with  messages  is  still  necessary. 
Byte  pointers  are  the  solution;  we  will  discuss  their  use  in  the  next  chapter. 
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6.5  Summary 


The  setting  and  clearing  of  any  bit  in  assembly  allows  for  better  utilization 
of  a  machine  word  by  the  program.  Traditionally,  high-level  languages 
concentrated  on  portability  and  therefore  sacrificed  bit  operations.  Recently 
developed  languages,  like  pascal,  allow  for  indirect  bit  manipulation  via 
the  set  data  type.  Even  newer  languages  like  ada  allow  for  more  direct 
bit  manipulation  via  low-level  packages. 

We  have  now  covered  the  five  basic  operations  of  any  computer  lan- 
guage: input,  output,  data  transfer,  arithmetic,  and  logic.  The  operations 
so  far  have  dealt  with  full  words  or  bits.  The  next  chapter  discusses  oper- 
ations that  work  with  user-defined  groups  of  bits. 


6.6  Exercises 

1.  Write  a  program  to  PBIN%  a  character.  After  the  character  is  accepted, 
set  bit  30  and  pboutc  the  result.  What  happens  when  you  pbin%  a 
capital  letter?  A  digit?  (Note:  It  will  help  if  this  program  is  restartable.) 

2.  Write  a  program  to  PBlNft  a  character.  After  the  character  is  accept- 
ed, clear  bit  29  and  pbout%  the  result.  Answer  the  questions  in  exer- 
cise 1. 

3.  Write  a  program  that  will  accept  an  integer  (radix  10);  then  examine 
each  binary  bit  in  the  number.  If  the  bit  is  set,  print  the  word  high, 
followed  by  a  carriage  return.  If  the  bit  is  not  set,  print  the  word 
low,  followed  by  a  carriage  return.  (This  program  is  an  example  of 
a  parallel-to-serial  conversion.) 

4.  Write  a  program  to  pbin%  a  character.  Count  the  number  of  bits  set 
in  the  word.  If  the  number  of  bits  is  odd,  set  bit  28.  If  the  number  of 
bits  is  even,  clear  bit  28.  (This  program  illustrates  even  parity:  an 
even  number  of  bits  is  always  set,  and  bits  to  the  left  of  28  are  not 
used  when  PBiN^ing.  The  parity  bit  is  available  for  checking  errors 
when  transferring  information  over  phone  lines.) 

5.  Write  a  program  that  accepts  a  number  from  the  terminal.  If  the 
number  sets  bit  30,  then  treat  bits  30  to  35  as  an  octal  number  and 
display  this  value. 

6.  This  chapter  presented  a  logic  equation  that  expressed  xor  in  terms 
of  and,  ior,  and  not.  Verify  this  equation  by  accepting  two  binary 
words  (nin%  using  base  2)  and  perform  the  and,  ior,  and  not  oper- 
ations yielding  the  xor  of  the  words.  Display  your  result  (nout% 
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using  base  2).  Using  the  same  words,  do  a  simple  xor  and  display  the 
result.  The  results  should  be  the  same. 
7.    Accept  a  character  from  the  terminal.  If  the  character  is  a  1,  2,  or  3, 
then  index  into  the  appropriate  position  in  a  jump  table  that  points 
to  locations  that  print  one,  two,  or  three. 
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CHAPTER 

7 


Transferring  Data  Using  Pointers 


In  the  last  chapter  we  examined  packing  and  unpacking,  which  deal  with 
a  contiguous  group  of  bits.  These  bits  come  from  or  are  placed  in  certain 
positions  within  a  memory  location.  We  learned  that  shifting  is  necessary 
to  deal  with  the  next  group  of  bits.  For  the  decsystem-20,  a  group  of 
contiguous  bits  is  a  byte.  (In  microcomputers,  a  byte  is  always  8  bits.) 
ASCII  is  a  7-bit  byte.  In  this  chapter,  we  will  examine  some  opcodes  that 
help  with  byte  packing  and  unpacking.  These  opcodes  set  up  and  use  a 
pointer  to  reference  a  particular  byte. 

7.1  Byte  Pointers 

The  assembly  directive  point  deals  with  the  three  aspects  of  computer 
words  we  have  been  discussing:  the  size  of  the  byte,  its  position  within  a 
location  into  which  it  is  placed  or  copied,  and  the  memory  location  referenced: 

POINT  BYTE*   LOCATION  i  POSITION 

(position  is  optional,  as  you  will  see  below.)  You  can  think  of  point  as 
setting  up  an  imaginary  pointer  that  points  to  the  right-most  bit  of  the 
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byte  being  referenced.  The  assembler  encodes  point  as  follows:  loca- 
tion, which  identifies  the  memory  location  of  the  string,  uses  bits  13  to 
35  (indirect,  index,  and  memory).  The  value  of  byte — interpreted  as  the 
decimal  number  of  bits  in  the  byte — is  coded  into  bits  6  to  11.  position 
uses  bits  0  to  5. 

The  user  places  in  position  the  decimal  value  of  the  bit  that  will  contain 
the  imaginary  pointer.  The  assembler  places  in  bits  0  to  5  the  octal  value 
of  the  number  of  bits  to  the  right  of  the  imaginary  pointer.  If  the  imagi- 
nary pointer  is  pointing  to  bit  3  (position  =  3),  then  the  octal  number  40 
would  be  in  bits  0  to  5  (32  bits  are  to  the  right  of  the  pointer).  Bit  12  is 
set  to  0. 

point  Machine  Code 

bits        0   5      6   11       12      13  35 

 1    1  T  I 

POSITION  BYTE  0  LOCATION 

Below  is  a  standard  use  of  point: 

MESSAGE:        ASC I Z/ s  t  r  i  n  3/ 
PTR:  POINT  7  i MESS AGE 

Since  no  position  value  is  present  in  point,  the  imaginary  pointer  defaults 
by  pointing  to  the  bit  left  of  the  0  bit.  Thirty-six  bits  are  right  of  the 
pointer;  therefore  bits  0  to  5  contain  octal  44.  The  instruction  designates 
the  byte  size  as  7;  therefore,  bits  6  to  11  contain  a  7.  Since  the  operand 
uses  no  indirect  or  index  addressing,  bits  13  to  17  are  set  to  0.  Bits  18  to 
35  contain  the  value  of  the  symbol  message.  The  machine  code  in  location 
PTR  is  440700message.  Note  that 

POINT  7  ,   MESSAGE  »0 

codes  as  430700message,  while 

POINT   7.  MESSAGE 

codes  as  440700message.  To  reference  the  first  character  of  a  string,  the 
byte  pointer  must  move  to  the  right  1  byte.  The  opcode  IBP  (increment 
the  Byte  Pointer)  will  effect  this  shift. 

IBP  PTR 
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ptr  must  be  a  location  that  contains  a  byte  pointer.  The  ibp  not  only 
increments  the  position  byte  counter  (bits  0  to  5),  but  also  changes  bits 
13  to  35  to  reference  the  next  word  once  the  original  word  referenced  has 
no  more  room  for  a  byte,  ibp  also  resets  the  position  counter  to  the  first 
byte  and  changes  the  values  in  the  location  ptr.  After  the  first  ibp  com- 
mand, the  value  in  ptr  is  350700message.  After  the  sixth  ibp,  the  value 
in  ptr  is  350700message  +  1.  The  opcode  ldb  (LoaD  a  Byte)  will  copy  a 
ptr  byte  into  an  accumulator;  the  operand  must  be  a  byte  pointer. 

LDB   AC  i  PTR 

This  command  loads  the  byte  to  the  left  of  the  imaginary  pointer  into  ac. 
We  can  combine  incrementing  and  loading  into  one  opcode. 

I LDB  AC  >  PTR 

To  copy  a  byte  from  an  accumulator  to  a  position  within  a  memory  location, 
use  the  opcode  dpb  (Deposit  a  Byte). 
DPB  AC  .  PTR 

Again,  we  can  combine  incrementing  and  depositing  in  the  opcode  idpb. 

Given  the  combined  forms,  the  computer  always  increments  first  and 
then  loads  or  deposits.  The  example  below  uses  pointers.  Since  incre- 
menting changes  the  value  of  a  pointer,  we  must  save  the  original  pointer 
so  that  the  characters  accepted  from  the  terminal  can  be  returned  to  the 
terminal.  This  example  uses  PSOUT%,  which  requires  a  pointer  in  accu- 
mulator 1,  but  without  hrroi.  (We  will  discuss  hrroi  further  later.) 

TITLE  EXAMPLE   18  ibvte  pointer 

SEARCH  MONSYM 

Z  ityped   in   chars   so  here 

POINT  7, WORD 

ASCIZ/type    in   up   to   4  chars 


inote  i   embedded  c  r 


:  POINT  7  »MESS 
T:      MOVE   1  .  PTR2 


PSOUTZ 

MOVE  2  ,  PTR1 


IN:  PBINZ 


CAIN   1  .15 

JRST  LF 
IDPB   1 »2 
JRST  CHAR  I N 
PBINZ 

MOVE   1  .  PTR1 
PSOUTZ 
HALTFZ 
END  START 


i  uas    it   a   c  r 
iyes  i   then   set  If 
inot   then   store  byte 
!  set  next  char 
.Set  If 

ireload  pointer 
!  show  chars 


Since  location  word  is  saving  only  one  word,  a  problem  arises  if  the  user 
types  more  than  four  characters.  After  the  computer  receives  the  fifth 
character,  the  next  incoming  characters  will  start  to  replace  the  program 
code.  (We  set  the  limit  to  4  so  that  a  null  is  present  for  psout%.) 

The  flow  of  data  is  not  only  between  the  program  and  the  terminal, 
however.  Remember  that  a  program  can  rearrange  the  data  within  it. 
The  following  lines  of  code  change  all  e's  in  a  string  pointed  to  by  ptr  to 
k's. 


MOVE  I   2,  "K" 
MOVE  3  .  PTR 
LOOP  :  I LDB    1  ,  3 

JUMPE   1  ,  DONE         ?nul  1  char? 

CAIN   1»    "e"  ino»   then    is    it   an  e 

DPB  2  »3  ivesi   then   chanse   to  K 

JRST  LOOP  >3et  next  char 

DONE: 


Byte  pointers  can  simulate  the  fine  string  capabilities  of  basic  as  well.  To 
count  the  number  of  characters  in  a  string,  for  example,  you  can  use  the 
following  instructions: 


SETZ  LENGTH  » 

MOVE  2<   PTR  iSet   a  pointer 

LOOP:          I LDB   1.2  ?Set   a  char 

JUMPE   1  .   DONE  5nul 1  char? 

ADD  I   LENGTH.    1  inoi   then   count  char 


DONE 


JRST  LOOP 


To  simulate  the  functions  rights  or  mid$,  the  opcode  adjbp  (ADJust  the 
Byte  pointer)  is  helpful.  This  opcode  allows  the  computer  to  move  the 
imaginary  pointer  anywhere  within  the  string.  To  use  adjbp,  you  must 
place  the  relative  byte  offset  in  an  accumulator  and  a  pointer  in  the  oper- 
and field. 


MOVEI   AC  >  3 
ADJBP  AC  .  PTR 


These  lines  will  place  in  the  accumulator  a  copy  of  ptr  advanced  3  bytes. 
PTR  remains  unchanged,  and  negative  numbers  would  back  up  the  pointer. 

Let  us  define  a  function  rht$  with  two  arguments,  a  string  and  a  num- 
ber. The  number  designates  the  starting  positions  of  a  new  string  so  that 
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all  characters  from  this  position  to  the  end  of  the  original  string  move  to 
the  new  string.  The  lines  below  demonstrate  a  rht$.  (Note:  rht$  is  not 
the  same  as  rights  in  basic.) 


A$= " ABCDEFG" 
B*=RHT*( A$  ,5) 

After  the  above  line  is  executed 
B*  would   be    " EFG " 


An  assembly  version  of  rht$  follows. 


SOURCE i 
PTR: 
MESS1 : 
PTR1  : 
MESS2: 
PTR2: 
START : 


LOOP: 


TITLE  EXAMPLE  J9 
SEARCH  MONSYM 
BLOCK  5 
POINT   7,  SOURCE 
ASCIZ/   type   in   a  strins  / 
POINT  7,  MESS1 
ASCIZ/   startins  position  / 
POINT  7.MESS2 
MOVE    1  .  PTR1 
PSOUTX 
MOVE  2  ,  PTR 


;right* 

isave    room  for  25  chars 


PBIN'Z 

CAIN   1  .  15 

JRST  LF 
IDPB   1  ,  2 
JRST  LOOP 


Jthis  pointer  has  to 
Sbe  saved 

5  c  r? 


LF  i 


ERROR: 


PTRE: 


PBINX 

MOVE   1  .  PTR2 
PSOUTX 

MOVEI  If  .PRIIN 
MOVEI   3.  12 

NIN*. 

ERJMP  ERROR 
SUBI   2,  1 


ADJBP  2t  PTR 
MOVE   1  .  2 
PSOUTX 
HALTFZ 

MOVE   1  .  PTRE 

PSOUTX 

HALTFX 

ASCIZ  *   I/O  ERROR  * 

HALTFX 

END  START 


Set  If 


!set   up  NINZ 
isince  RADIX  not 
i  u s  e  t   base   is  octal 
?3et   startins  position 

5an   increment   is  done 
ibefore  char  loaded 
i  the  ref o  re   sub  1 
imove  byte  pointer 
5set   up  PSOUTZ 
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mid$  has  three  parameters:  a  source  string,  a  starting  position,  and  the 
number  of  characters. 

MlD$(string,  start ,  numof chars) 

mid$  functions  as  follows: 

A*  = " ABCDEFG " 
B$=MID$ ( A$  ,3  ,2) 

After  the   above   line   is  executed 
B*  would   be  "CD" 

mid$  is  similar  to  rht$  except  that  mid$  needs  another  counter  to  count 
the  number  of  characters.  You  can  print  these  characters  via  pbout%.  (If 
you  were  to  use  psout%,  you  would  need  to  place  a  null  character  in  the 
position  "start  +  numof  chars"  via  adjbp.) 


7.2  Literals 

A  byte  pointer  requires  two  locations:  the  location  storing  the  directive 
point  and  the  address  of  the  data.  Literals  help  the  assembler  pick  these 
locations.  The  directive  square  brackets,  [  ],  requests  a  literal  from  the 
assembler.  Consider  the  following  lines,  which  do  not  use  literals. 

HERE:  ASCIZ/wessaSe/ 
PTR:  POINT  7  ,  HERE 

MOVE   1  i  PTR 

Using  literals,  the  lines  become 

HERE:  ASCIZ/messase/ 

MOVE   1  .    [POINT  7  ,  HERE] 

The  assembler  chooses  a  location  and  places  the  bracketed  code  in  that 
location.  The  value  of  this  location  then  replaces  the  literal  in  the  original 
instruction.  You  can  nest  literals  also. 

MOVE   1 »CP0INT7 »[ASCIZ/messaSe/]] 

Literals  are  not  restricted  to  pointers.  For  example,  movei  AC,  3  yields 
the  same  result  as  move  AC, [3].  Literals  are  also  helpful  with  monitor  calls 
that  return  + 1  or  +  2,  as  illustrated  below. 
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NOUT% 

ERJMP   [MOVE   l.CPOINT  7»[ASCIZ   /error  messase  /]] 
PSOUTZ 

JRST  somewhere] 
here   if  NCUTX  successful 

The  "here  if .  .  ."  appears  to  be  the  fourth  line  after  the  nout%  rather 
than  the  second  line  as  required  by  the  +  2  monitor  return.  The  reason 
is  that  the  assembler  places  only  the  address  of  the  literal  next  to  the 
erjmp  and  moves  the  rest  of  the  code  to  the  literal  pool.  The  literal  request 
thus  allows  the  code  to  appear  linear.  One  of  the  few  restrictions  for  literal 
nesting  is  on  breaking  up  an  instruction;  you  cannot  place  the  opcode  and 
ac  on  one  line  and  the  operand  on  another.  Also,  macro  will  not  show  the 
literal  pool  unless  you  include  the  assembly  directive  lit  in  the  program. 
Only  those  literals  before  the  lit  will  appear.  To  have  macro  show  all  the 
literals,  place  the  lit  immediately  before  end. 

Another  assembly  directive  that  helps  identify  locations  is  #,  which 
creates  a  variable  symbol.  Generally  you  should  use  a  label  to  define  any 
symbol  you  use.  For  example, 

A:  Z 

*       •  • 

MOVEM  2  .  A 

However,  directive  #  makes  it  unnecessary  to  establish  the  symbol's 
location. 

MOVEM  2  »  A# 

The  #  informs  the  assembler  to  create  the  symbol  A — that  is,  assign  the 
name  A  to  a  location.  Future  references  to  A  need  not  have  the  trailing 
directive  #.  As  you  can  see,  it  makes  identification  of  locations  very  sim- 
ilar to  identification  of  variables  in  high-level  languages. 

7.3  Reading  from  the  Terminal 

psout%  is  a  glorified  pbout%.  rdtty%,  "read  from  the  terminal,"  is  more 
than  a  glorified  pbin%,  however.  rdtty%  permits  fine  editor  capabilities, 
for  example,  delete  and  control  keys.  rdtty%  is  similar  to  a  basic  input 
or  FORTRAN  read  statement.  It  uses  three  accumulators:  Accumulator  1 
holds  a  pointer  indicating  where  the  input  string  will  be  stored;  in  other 
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words,  it  sets  aside  an  area  of  memory  for  incoming  data.  Accumulator  2 
designates  the  maximum  number  of  characters  acceptable  to  prevent 
incoming  data  from  overflowing  the  allotted  storage  area.  (Accumulator 
2  can  do  other  things,  as  you  will  see.)  rdtty<*  ends  either  when  the 
computer  receives  the  maximum  number  of  characters  (not  counting  deletes 
or  other  line  editor  commands)  or  when  the  user  types  a  carriage  return. 
The  carriage  return  and  line  feed  also  go  into  the  storage  space  (if  the 
count  in  ac  2  allows  it).  Accumulator  3  works  in  conjunction  with  the  line 
editor  control  R.  It  contains  a  pointer,  which  references  the  message  to 
be  sent  to  the  terminal  when  control  R  is  used.  If  you  do  not  want  this 
feature,  you  must  clear  accumulator  3.  rdtty^  uses  a  -  1.  ^2  return.  A 
simple  setup  of  rdtty^  follows. 


size=b 
input:     block  size 

ptr:        point  7.  input 

•   •  • 

MOVE   1  ,  PTR 
MOVEI   2.  SIZE*5-1 

SETZ  3. 
RDTTYZ 

ERJMP  ERROR 


iS  words  or 
!30  ASCII  chars 


ileaue    room  for  null  char 

iused   by  PSOUTZ 

ino  control   R  facility 


Because  of  its  line  editor  features,  RDTTYZ  is  the  preferred  way  to  accept 
input  from  the  terminal.  To  input  numbers  from  the  terminal,  RDTTYZ 
works  in  conjunction  with  NIN%.  NIN<£  accepts  ASCII  characters  from  a 
source  and  converts  the  ascii  string  into  a  number.  The  contents  of  accu- 
mulator 1  determine  the  source  of  HIN%.  Only  when  ac  1  contains  .priin 
is  the  terminal  the  source.  In  general,  ac  1  should  contain  a  pointer  to  the 
source.  rdtty<*  will  place  ASCII  data  into  the  program;  n*in%  will  then 
take  the  ASCII  data  from  the  program  and  convert  them  to  a  number.  This 
method  of  accepting  numbers  allows  the  user  line  editor  capabilities.  The 
program  below  accepts  a  base  10  number  supplied  by  the  user,  then  con- 
verts it  to  another  base  supplied  by  the  user. 
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ibase   convertins   uia  RDTTYZ 


5  input   strins  here 


TITLE  EXAMPLE  20 

SEARCH  MONSYM 

SIZE=G 
HERE:  BLOCK  SIZE 

PTR:  POINT  7.  HERE 

BASE:  Z  iinput  base 

START:  MOVE   1» [POINT  7.    [ ASC I Z / n urn b e r? / ] ] 

PSOUTZ 

MOVE   1.   PTR  iset   up  RDTTYZ 

MOVEI   2.  SIZE*5-1 
SETZ  3. 
RDTTYZ 

ERJMP   C   MOVE   1  .[POINT  7  » [ ASCIZ/   error  /]] 
PSOUTZ 
HALTFZ  ] 

MOVE   1»    [POINT  7,    [ASCIZ/   new  base/]] 
PSOUTZ 

MOVE   1.    [POINT  7 »BASE]  iset   up  RDTTYZ 

MOVEI   2»4  itwo   disits   and   cr»  If 

RDTTYZ 

ERJMP   [MOVE   1  .[POINT  7,  [ASCIZ/   base  err/]] 
PSOUTZ 
HALTFZ] 

MOVE   1.    [POINT  7,    [ASCIZ   /   answer  /]] 
PSOUTZ 

MOVE   1,    [POINT  7, BASE]  iset   up  NINZ  to 

MOVEI   3.    12  iset  base 

NINZ 

ERJMP   [   MOVE   l.[POINT  7,  [ASCIZ/   error  /]] 
PSOUTZ 
HALTFZ  ] 

MOVEM  2»  BASE  isaue  number 

MOVE   li    [POINT  7.   HERE]        iset   up  NINZ 
NINZ  iset  number 

ERJMP   [HALTFZ]  ilaz/ 
MOVEI    1»    .PRIOU  iset   up  NOUTZ 

MOVE  3.  BASE  iset  base 

NOUTZ 

Z  ieven  lazier 

HALTFZ 

JRST  START  irestartable 

LIT  !  show   literal  table 

END  START 


7.4  Comparing  Strings — I 

In  this  section,  we  will  discuss  how  to  store  strings  and  how  to  search  for 
a  particular  string.  For  the  examples  below,  we  will  use  the  strings  aabc, 
acdda,  and  aa.  We  will  use  rdtty%  to  accept  the  strings,  and  will  save 
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the  pointer  for  each  string  before  accepting  it  so  that  we  can  reference 
the  string  again.  Below  is  one  way  to  approach  this  problem. 


STR=6  iac   G   is   a  counter 

C0UNTER=7  iac  7  counts  num  of  strinSs 

NUMSTR=max   number   of  strings 
BIG=NUMSTR*ave  rase  num  of   char  per  strinS 


HOLD:  BLOCK  BIG/5 

PTR:  POINT  7,  HOLD 

SAVE:  BLOCK  NUMSTR 


«all   strinSs   saved  here 

ipointers   to  besinninS 

iof   each   strinS  saued  here 


LOOP: 


MOVEI   STR.  3 

SETZ  COUNTER. 
MOVE   1  •  PTR 
MOVE  2,  BIG 
SETZ  3. 

MOVEM  1 p  SAVE ( COUNTER ) 
RDTTYX 

ERJMP  ERROR 
ADD  I   COUNTER.  1 
SOJG  STR.  LOOP 


53  strinSs  in 
5 1  h  i  s  example 

iset   up  RDTTYX 


isaue  pointer 


icount  strins 
!  an  y  more? 


The  strings  and  pointers  (shown  by  the  dots  below)  are  stored  as  follows. 

HOLD:       .a  a  b  c  cr 

If  .a  c  d  d 

a  cr  If  .a  a 

cr  If  0  0  0 


save:       440700  HOLD 

350700  HOLD  + 1 
170700  HOLD +  2 

If  we  were  to  use  PSOUT%,  we  would  need  a  null  at  the  end  of  each  string. 
The  following  adds  a  null  and  compacts  the  data  by  removing  the  carriage 
return  and  line  feed. 
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NULL=0 

MOVEI   5.  NULL 
set   up   a  RDTTYX 
LOOP:  MOUEM   1 tSAVE (COUNTER) 

RDTTYZ 

ERJMP  ERROR 
MOVNI  a,  1 
ADJBP  a,  1 
MOUEM  a ,  1 

DPB  5  .  1 

ADD  I   COUNTER  »  1 
SOJG  STR  .  LOOP 


The  data  and  pointers  now  are  as  follows. 


HOLD: 

.a 

a 

b 

c 

0 

.a 

c 

d 

d 

a 

0 

.a 

a 

0 

0 

SAVE:      44070  HOLD 

44070  HOLD  + 1 
35070  HOLD +  2 

Knowing  how  the  strings  are  stored,  let  us  find  a  specific  string  refer- 
enced by  find. 

FIND:  POINT   7i    C ASC IZ/strinS/] 

The  following  algorithm  checks  each  string  character  by  character.  The 
last  string  typed  in  is  the  first  string  of  the  data  bank  checked. 

nomatch:      get  next  string  pointer 

set  up  find  pointer 
loop:  get  char  from  find 

get  char  from  data  bank  string 
if    findchar  obankchar  then  goto  nomatch 
else  if  findchar  =  0  then  found 
else  goto  loop 

As  soon  as  the  characters  are  not  the  same,  the  computer  retrieves  the 
next  pointer.  When  it  finds  a  match,  the  computer  checks  the  character 
to  see  if  it  is  the  null  character  signifying  the  end  of  the  find  string.  The 
null  character  can  also  indicate  the  end  of  the  data  bank  string  because  of 


put   a  -1   in   ac  4 
backup  byte   Pt  r 
put   byte   pt  r 
back   in   ac  1 
put   a  null  on 
top  of   c  r 
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the  match  before  the  check.  If  a  match  exists  but  the  character  is  not  a 
null,  then  the  computer  will  get  the  next  character.  The  assembly  version 
of  the  string  check  follows. 


NOtlATCH  : 


LOOP  : 


MOVE  STR  ,  COUNTER 
SOJL  STR,  NOTFOUND 
MOUE   1 »   SAUE ( STR ) 
MOUE  2,  FIND 
ILDB  3  .1 
ILDB  a  ,2 
CAME  3  ,a 


number  of   strings  +  1 

any   strings  left? 

yes  i   then   set  pointer 

Set   find  pointer 

set   a  data  char 

set   a  find  char 

are   the   chars   the  same 


JRST  NOMATCH 
CAIE  a  ,  0 


n  o 

null  char? 


JRST  LOOP 
here   if   strinS  found 


With  a  pointer,  the  size  and  position  stay  in  the  left  half  of  a  word  and  the 
address  generally  stays  in  the  right  half.  However,  opcodes  that  "split" 
information  into  half  words  can  help  in  manipulating  data. 


Half-word  opcodes,  as  suggested  by  their  name,  allow  for  half-word 
manipulation.  The  left  half  word  contains  bits  0  to  17,  and  the  right  half 
word  contains  bits  18  to  35.  Half-word  opcodes  have  the  form  Hsdfm, 
where  s  and  d  signify  the  source  and  destination  of  the  half  word  and  can 
have  value  L  (left)  or  R(right) — for  example,  HRR/wz,  HLR/m,  HRL/m, 
and  HLL/m.  The  /  is  optional,  designating  the  possible  effects  to  the 
contents  of  the  other  half  word  of  the  destination.  The  /  position  can 
contain  no  letter,  meaning  "no  changes";  0,  meaning  "fill  with  l's";  and 
Z,  meaning  "fill  with  O's."  (Another  possible  letter,  E,  is  beyond  the  scope 
of  our  discussion).  The  m  represents  the  addressing  mode,  determining 
the  source  and  destination  of  the  half  word.  It  can  be  one  of  the  standard 
letters:  space,  I,  or  M.  The  source  is  not  always  the  operand;  M  indicates 
that  the  source  is  the  accumulator,  for  example.  Two  assembly  directives 
for  half  words  are  double  comma  (,,)  and  XWD.  All  three  lines  below 
represent  the  same  instruction. 

HALF :    a  »  »b 
HALF:    XWD  a»b 
HALF:  aB17+bB35 

They  all  place  a  right  justified  in  bits  0  to  17  and  b  right  justified  in  bits 
18  to  35  in  the  location  half. 


7.5  Half-Word  Opcodes  and  Monitor  Control  Bits 
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Consider  the  examples  of  half  words  in  Table  7-1.  Examples  always  begin 
with  AC,  which  contains  C,,D,  and  half,  which  contains  A,,B.  The  0  in 
the  last  example  comes  from  the  immediate  mode  of  addressing,  I,  in 
which  the  left  half  of  the  operand  always  becomes  0. 

Now  we  have  enough  information  to  discuss  the  opcode  that  sets  up 
psout%,  hrroi.  hrroi  places  all  l's  in  the  left  half  of  a  word  and  an 
address  of  an  asciz  string  in  the  right  half.  psout%  is  set  up  to  accept 
this  as  an  ascii  pointer.  (No  logical  reason  exists  for  this  function  of 
PSOUT%;  it  simply  works!) 

Half  words  also  help  set  control  bits  for  some  monitor  calls.  The  nout% 
monitor  call  uses  control  bits  to  format  a  number  to  be  printed.  It  sets 
the  control  bits  in  the  left  half  of  accumulator  3.  With  no  control  bits, 
nout%  will  left  justify  a  number  without  restricting  the  number  of  digits 
in  the  printing  field  (of  course,  the  number  must  fit  in  an  accumulator). 
Given  this  format,  the  user  can  pick  the  width  of  the  field — that  is,  the 
maximum  number  of  digits  to  be  printed.  The  width  is  right  justified  in 
bits  11  to  17.  Once  a  width  is  specified,  the  program  will  ignore  digits  that 
do  not  fit  in  the  field.  To  prevent  overflow,  you  must  set  bit  4,  thereby 
expanding  the  field  to  the  right  if  too  many  digits  appear.  To  recognize 
overflow  without  expanding  the  field,  you  must  also  set  bit  5.  Too  many 
digits  will  then  cause  stars  (*)  to  print  in  the  field  as  warning  that  the 
number  is  too  large.  Normally,  a  field  justifies  numbers  on  the  left.  To 
justify  numbers  on  the  right,  you  must  set  bit  2;  this  allows  a  choice  for 
the  leading  fill  character.  If  you  set  bit  3,  the  leading  fill  will  be  0's;  if  you 
clear  bit  3,  the  leading  fill  will  be  spaces.  Two  other  control  bits  are  not 
directly  related  to  the  width  bits  11  to  17.  To  print  an  unsigned  number, 
777777777777  instead  of  -  1,  set  bit  0.  If  you  want  a  sign  in  all  cases,  set 
bit  1.  If  you  set  bit  1,  a  plus  sign  ( + )  will  print  out  for  positive  numbers. 
The  negative  sign  ( -  )  will  print  as  usual.  (See  Table  7-2.) 

TABLE  7-1.    Half-Word  Examples 

Result 


Code 

AC 

Half 

HLL  AC  ,  HALF 

A  . 

,0 

A  . 

iB 

HLLM  AC.  HALF 

C  . 

iD 

C  . 

>B 

HLR  AC  ,  HALF 

C  . 

,A 

A  . 

i  B 

HLRM  AC  »  HALF 

C  i 

.D 

A  . 

tC 

HLLO  AC.  HALF 

A  . 

mini 

A  . 

,B 

HLROM  AC  ,  HALF 

C  . 

>D 

111111  . 

,C 

HLLZ  AC  .  HALF 

A  . 

.0 

A  . 

i  B 

HLR I   AC.  CB17+DB35 

0  . 

.C 

A  . 

,B 
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TABLE  7-2.    nolt<*  Control  Bits  (Left  Half  of  AC  3) 


Bit 

Symbol 

Comment 

0 

NO%MAG 

print  all  numbers  as  unsigned 

1 

NO%SGN 

show  the  plus  sign 

2* 

NO%LFL 

right  justify 

3* 

NO^ZRO 

leading  fills  are  O's  (not 

spaces) 

4* 

NO%OOV 

expand  on  overflow 

5* 

NO%AST 

if  bit  4  set,  print  *  on  overflow 

11-17 

field  width 

*These  bits  need  data  in  bits  11  to  17. 


The  monitor  defines  the  symbols  no%xxx,  which  you  must  generally  use 
with  literals.  A  few  examples  follow. 

MOUE  3.   C*D8»."D10]  field  width  8  chan    radix  10 

HRLI   3»   400000  print   as   an   unsigned  number 

HRRI    3»    "D10  decimal  radix 

MOUE  3,   [N0X00Y+< *D9>B17]     field  width  3,   expand  overflow 
HRLI   3»   1G0012  field  width   10 t   expand  overflow, 

risht   Justify  i   fill   with  O's 

rdtty%  also  has  a  number  of  control  bits,  which  are  in  the  left  half  of 
accumulator  2.  (We  will  mention  only  a  few.)  As  with  a  basic  input  or  a 
FORTRAN  read  statement,  the  assembly  program  waits  until  rdtty% 
ends — in  other  words,  until  the  characters  are  in  the  input  buffer.  If  set, 
bit  7  eliminates  waiting,  which  is  handy  when  you  must  minimize  decision 
time  or  when  a  game  calls  for  two  players.  Bit  5  monitors  the  use  of  the 
delete  key.  Setting  bit  5  returns  the  user  to  the  program  if  he  or  she  tries 
to  delete  past  the  beginning  of  the  new  input.  Setting  bit  10  converts  all 
lower  case  letters  to  upper  case  letters.  Table  7-3  provides  examples  of 
rdtty%  control  bits. 


TABLE  7-3.    rdtty*   Control  Bits  (Left  Half  of  AC  2) 


Bit 

Symbol 

Comment 

5 

RDtfRND 

trap  if  user  tries  to  delete  too  much 

7 

RD%RIE 

do  not  wait  for  carriage  return 

10 

RD%RAI 

convert  all  lower  case  to  upper 

MOVE  2, 

allow  for  one  character;  do  not  wait  if  input 

[RD%RIE„1] 

buffer  is  empty 

HLL  2,[1B5] 

trap  if  user  deletes  too  much 
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7.6  Comparing  Strings — II 


In  this  section,  we  will  compare  machine  words,  five  characters  at  a  time. 
In  the  process,  we  will  be  able  to  review  past  chapters.  We  have  four 
parameters  for  this  approach  to  examining  strings:  numstr,  the  NUMber 
of  STRings  in  the  data  bank;  avelen,  the  AVErage  LENgth  of  a  string; 
byte  size;  and  bytemk,  the  byte  MasK.  By  using  byte  as  a  parameter, 
we  are  not  restricted  to  ascii.  The  program  setup  follows. 


TITLE  EXAMPLE  21 

SEARCH  MONSYM 
NUMSTR=3 
AVELEN= "DZO 
BYTE=7 

BYTEMK  =  ~  B  1  1 11111 
C0UNTER=7 
CPWORD= "D3G/BYTE 


i  f  i  n  d  i  n  3  a 
5  c  ompa  r  i  n  S 


st  rinS  by 
5  chars  at 


a  time 


»number  of   strings   in   data  bank 

iaveraSe   lensth   of   a  strins 

!bits    in  char 

iused   to   Set   one  byte 

?ac  7  counts  num  of  strings 

ichars   per  word 


NOCHARS=NUMSTR*AVELEN/CPWORD 
HOLD:  BLOCK   NOCHARS  jail    strings  stored 

PTR:  POINT  BYTE tHOLD  ifirst  pointer 

SAVE:  BLOCK  NUMSTR  idata  bank  pointers 

FIND:  POINT  BYTE*  L00K4  istrin*  to   be  found 

L00K4:  BLOCK  AVELEN 


here 


Once  the  user  has  supplied  the  three  parameters  (numstr,  avelen,  and 
byte),  the  program  calculates  the  necessary  storage  area.  The  next  part 
of  the  program  will  accept  the  data  bank  strings  from  the  terminal  and 
store  them  in  hold.  Because  the  comparison  proceeds  one  word  at  a  time, 
the  storage  method  must  be  different  from  the  character-by-character 
method.  A  string  must  start  at  the  beginning  of  a  new  word,  which  calls 
for  initializing  the  pointer  to  the  beginning  of  a  word.  To  initialize,  the 
program  must  increment  the  right  half  of  the  pointer,  the  address  part, 
and  then  change  the  left  half  to  440700.  Also,  we  cannot  use  a  null  to 
signify  the  end  of  a  string  as  we  did  when  working  with  single  characters. 
Because  the  rdtty%  command  keeps  track  of  the  number  of  characters 
in  a  string,  we  can  use  this  number  rather  than  a  sentinel  to  count  words 
and  to  help  locate  a  particular  string.  Instead  of  examining  all  the  strings 
in  the  data  bank,  the  computer  will  examine  only  those  strings  that  are 
the  same  length  as  the  string  sought.  When  it  finds  a  string  of  similar 
length,  it  will  compare  the  machine  words  of  the  string  to  the  machine 
words  of  the  string  sought.  Each  match  will  reduce  the  number  of  char- 
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acters  by  5,  assuming  ASCII.  When  the  number  is  less  than  0,  the  string 
ends. 

Where  will  we  store  the  number  of  characters  in  the  string?  Though  we 
could  use  a  separate  block  of  memory  to  hold  the  length  of  each  string, 
another  way  is  to  store  the  number  at  the  beginning  of  the  string!  This 
method  limits  the  number  of  characters  in  a  string,  for  the  binary  value 
of  the  number  must  fit  into  one  byte.  For  an  ASCII  byte  (7  bits),  this 
number  would  be  127  characters,  which  is  not  heavily  restrictive.  Now 
when  the  program  compares  the  first  word  of  a  string  with  the  first  word 
of  the  sought  string,  it  must  compare  two  elements,  the  length  of  the 
strings  and  the  first  four  characters!  To  store  a  number  in  the  string,  the 
byte  pointer  of  the  string  increments  once,  leaving  the  first  byte  blank. 
After  the  user  has  typed  the  string  and  the  computer  has  calculated  the 
number  of  characters,  the  computer  must  set  the  pointer  to  the  first  loca- 
tion and  deposit  the  number.  How  is  the  number  of  characters  calculated? 
As  rdtty%  accepts  each  character,  accumulator  2  decreases  by  1.  The 
difference  between  the  initial  value  of  ac  2  and  the  value  at  the  end  of 
rdtty%  is  almost  the  number  of  characters  in  the  string  (rdtty<x  sets 
some  control  bits  in  the  left  half  of  ac  2  upon  completion).  The  program 
must  not  consider  control  bits  when  subtracting.  The  instruction  MOVNI 
2,(2)  enables  it  to  ignore  the  control  bits  and  still  retrieve  the  desired 
number.  The  immediate  mode,  I,  causes  it  to  ignore  the  left  half.  Com- 
pletion of  this  instruction  places  the  negative  value  of  the  right  half  of  ac 
2  in  ac  2,  which  the  program  then  adds  to  the  original  number  minus  2  (to 
avoid  counting  the  carriage  return  and  line  feed).  Backing  up  the  pointer 
removes  the  carriage  return  and  line  feed;  inserting  a  null  allows  psout% 
to  be  used.  Index  offset  addressing,  save  +  numstr(COUNTER),  eliminates 
one  counter,  setting  counter  to  the  negative  value  of  numstr  and  incre- 
menting it.  This  addressing  ensures  that  the  program  will  always  refer- 
ence the  first  pointer  first,  even  in  the  searching.  The  following  code  loads 
the  data  bank  strings  and  the  string  to  be  found. 


START:  MOVE   1  . [ PO I NT7  ,  [ ASC I Z/ 

type   in  3  strinSs  /]] 
PSOUTX 

MOVNI   COUNTER  »  NUMSTR 

MOVE    1  ,   PTR  iset   up  RDTTYZ 

SETZ   3»  ino  "R 
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BYTEMK 


INLOOP:  MO  VEM  1 

IBP  1 
MOVE  I  2 
RDTTYX 

ERJMP   [ HALTFX ] 
MOVNI  a,  1 
ADJBP  a f  1 
DPB  3.  a 
MOVNI  2.(2) 
ADD  I   2  (BYTEMK - 2 


SAVE+NUMSTR( COUNTER) 

Jmake  room 


!  m  a  x   n  urn 


for  nam 
of  chars 


of  chars 


lazy 

backing  up 

ipointer  i   taken   out   cr  If 
put    in   a  null 
Ifind   number  of 
ichars   typed  minus   cr  If 
MOVE   1»  SAUE+NUMSTR( COUNTER)        ;*et   original  pointer 
IDPB  2»1  iput  number   in   first  byte 

inow   initialize   pointer  to  beginning 
next  word 

HRR   1)  4  ;get   last  address 

ADDI    li    1  iset   to   next  address 

HRLI    1(440700  iset   to  beginning 

AOJL  COUNTER(   INLOOP    iany  more  strings? 


of 


OVER: 


FIND 


BYTEMK 


MOVE   1 ([POINT 
PSOUTZ 
MOVE   1  ( 
IBP  1 
MOVEI  2 
RDTTYZ 
Z 

MOVNI   a,  1 
ADJBP  a,  1 
DPB  3  (  a 
MOUNI  2((2) 
ADDI   2  (BYTEMK • 

1  (  FIND 

2  (1 


jgetting  the  FIND  string 
CASCIZ  /   find?  /]] 


MOVE 
IDPB 


The  next  part  of  the  program  will  compare  machine  words.  In  order  to 
retrieve  full  words,  this  program  will  change  the  size  of  the  byte  to  octal 
44,  using  one  pointer  for  the  find  string  and  another  for  a  data  string. 
After  the  program  loads  each  original  pointer  in  an  accumulator,  the 
instruction  "hrli  AC,  444400"  will  change  the  pointer  so  that  it  will  appear 
at  the  beginning  (44)  of  a  full  word  (44).  If  the  program  finds  a  match 
between  the  first  word  of  a  string  and  the  first  word  of  the  desired  string, 
it  will  place  the  number  of  characters  in  the  string  in  a  counter.  The 
counter  will  decrease  by  cpword  and  check  to  see  whether  the  string  is 
complete.  If  not,  ildb  will  retrieve  the  next  word.  This  process  continues 
until  the  end  of  the  string  or  a  "no  match"  condition. 
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MOVNI 

COUNTER  i  NUMSTR 

SUBI 

COUNTER i  1 

!an   add   is   done   before  each 

Sfetcht   sub   to  compensate 

if  or  the   first  add 

BEG  I NF  : 

MOVE 

1 

,  FIND 

i  set  pointer 

HRLI 

1 

,  QQQQOO 

ichanse   byte   size   to   a  word 

I  LOB 

3 

,  1 

5put   the   first   full   word   in  ac 

NOMATCH : 

AOJE 

COUNTER  .  DONE 

MOVE 

2 

.   SAVE  +  NUMSTR(  COUNTER)        iSet   next   data  Ptr 

HRLI 

2 

,  aaaaoo 

ichanse  byte   size   to   a  word 

I  LOB 

a 

»  2 

i  put  word   in   ac  4 

CAME 

3 

i  4 

i  same  words 

JRST 

NOMATCH 

ino  i   then   set  next  ptr 

MOVE 

5 

>@FIND 

jyest   Set  number  of  chars 

ROT  5 

t 

BYTE 

i  rotate   left   bits   into  riaht 

AND  I 

5 

.  BYTEMK 

5set   all   other  bits   to  zero 

SUB  I 

5 

,  CPWORD-1 

ilooked   at   first  CPWORD-1  chars 

MORE  : 

CAIG 

5 

i  a 

5at  sentinel? 

JRST 

FOUND 

i  y  e  s 

I  LOB 

3 

1 1 

ino  i   then   set  next  word   of  FIND 

ILDB 

a 

,2 

»next  word   of  strins 

CAME 

3 

,a 

!  s  ame? 

JRST 

BEG  I NF 

ino  i   start  ouer 

SUBI 

5 

iCPWORD 

isub  CPWORD  chars 

FOUND ; 


DONE  : 


JRST  MORE 


MOVE  1 
PSOUTZ 
MOVE  1 
IBP  1 
PSOUTZ 
HALTFZ 
MOVE  1 
PSOUTX 
HALTFX 
LIT 

END  START 


[POINT  7, 


Set  next  word 
[ASCIZ/   found  /]] 


SAVE+NUMSTR( COUNTER)  iset 
tdon't  show 


data  ptr 
num   of  chars 


[POINT  7,   [ASCIZ/   did  not   find  /ll 


A  simple  JRST  over  after  a  haltf^  will  not  make  this  program  restart- 
able.  Instead,  we  need  to  clear  all  previous  find  characters.  If  we  were 
not  to  clear  a  first  string  of  abcde,  for  example,  the  program  would  look 
for  a  second  string,  say  12  by  searching  mistakenly  for  \2cde\ 

In  the  program  above,  the  code  to  load  a  string  in  the  data  bank  is  very 
similar  to  the  code  to  load  FIND.  A  high-level  language  would  use  a  sub- 
routine for  this  purpose.  We  will  learn  more  about  subroutines  in  the  next 
chapter. 
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7.7  Summary 


Historically,  computers  were  of  two  types:  scientific  number  crunchers, 
and  business,  data-processing  machines  (string  manipulators).  However, 
in  recent  years  (post  1964)  we  have  witnessed  the  arrival  of  the  general- 
purpose  computer,  one  designed  to  function  on  a  program  of  commands 
with  a  view  to  solving  a  host  of  problems  related  to  data-processing.  With 
a  general-purpose  computer  it  is  necessary  to  have  methods  whereby  the 
user  can  set  the  logical  size  of  information  even  though  the  physical  unit 
is  fixed  by  the  machine  word.  This  capability  allows  for  infinitely  better 
utilization  of  memory. 

Armed  with  this  byte  capability  and  the  better  i/o  operations  intro- 
duced in  this  chapter,  we  are  now  ready  to  work  with  data  structures. 

7.8  Exercises 

1.  Write  a  program  that  will  print  the  numerical  positions  of  the  letter 
A  in  a  string.  Use  a  7-bit  byte  pointer  to  gain  access  to  each  character. 
You  can  write  the  string  into  the  program  via  asciz. 

2.  Write  a  program  that  simulates  a  rdtty%  by  looping  over  a  pbin%. 
Since  the  monitor  traps  control  characters,  use  1  to  delete  a  character, 
2  as  a  control  U,  and  a  carriage  return  to  terminate  the  input  loop. 
After  accepting  the  message,  print  it.  (adjbp  is  helpful  here.)  For 
example, 

AB1CD1E 
ACE 

3.  Write  a  program  that  simulates  a  mid$  function.  The  program  should 
accept  a  string  and  two  numbers  and  then  print  the  partial  string. 

4.  Set  up  an  rdtty%/nin%  to  accept  two  5-bit  binary  numbers,  ior  the 
numbers;  then  nout%  the  result  in  a  field  of  width  5,  with  leading  O's. 

5.  Place  two  strings  (via  asciz)  at  two  different  locations  in  a  program. 
Have  the  program  move  the  strings  to  another  area,  packing  the 
second  string  after  the  first  string.  Use  a  single  pointer  to  display  the 
concatenation. 
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CHAPTER 

8 


Stacks  and  Subroutines 


A  stack  is  a  block  of  memory  set  aside  for  data.  As  such,  it  is  a  data 
structure  and  a  way  to  reference  data.  The  number  of  memory  locations 
reserved  is  the  depth  of  the  stack.  (Depth  is  actually  a  dynamic  quantity 
signifying  the  number  of  elements  presently  on  the  stack.  But  because 
of  the  way  the  decsystem-20  operates,  we  will  define  depth  as  the  max- 
imum number  of  elements  allowed  on  the  stack.)  Placing  a  value  on  the 
stack  is  pushing.  Copying  a  value  from  the  stack  is  popping.  The  last 
element  pushed  onto  a  stack  is  on  the  top  of  the  stack.  For  a  normal  stack, 
the  present  top  element  is  the  only  element  that  can  be  popped.  A  stack 
is  a  last  in,  first  out  (lifo)  data  structure.  It  has  finite  depth:  An  over- 
flow error  occurs  if  a  new  element  is  pushed  onto  the  stack  when  it  is 
full.  An  underflow  error  occurs  with  the  application  of  a  pop  to  an  empty 
stack. 

8.1  Stacks  on  the  decsystem-20 

Any  accumulator  can  keep  track  of  a  stack;  it  then  becomes  a  stack  accu- 
mulator. The  right  half  of  the  stack  accumulator  contains  the  address  of 
the  top.  Pushing  an  element  onto  the  stack  causes  the  right  half  of  the 
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stack  accumulator  to  increment  and  place  the  element  at  the  new  top. 
Popping  an  element  causes  the  right  half  of  the  stack  accumulator  to 
decrement.  The  left  half  of  the  stack  accumulator  keeps  track  of  the  num- 
ber of  elements  associated  with  the  stack;  the  computer  monitors  this 
value  for  either  an  underflow  or  an  overflow.  More  specifically,  any  time 
the  sign  bit  (bit  0)  changes,  a  trap  is  set.  The  computer  cannot  monitor 
both  types  of  errors  (underflow  and  overflow)  at  the  same  time.  To  mon- 
itor for  an  underflow  error,  program  a  0  in  the  left  half  of  the  stack 
accumulator.  With  each  push,  both  halves  of  the  stack  accumulator  incre- 
ment. Each  pop  decrements  both  halves  of  the  stack  accumulator,  signi- 
fying that  one  fewer  element  is  in  the  stack  and  assigning  the  new  top  of 
the  stack.  Since  the  left  half  starts  at  0,  indicating  that  no  elements  are 
on  the  stack,  an  underflow  error  occurs  any  time  a  pop  decrements  a  0. 
The  system  will  trap  this  error  and  stop.  Below  is  an  example  of  a  stack 
setup  for  underflow. 

STK=17  lac    17  will    be  used 

la;   a  stacK 

DEPTH=50 

STACK:  BLOCK   DEPTH  Isaue   depth   many  words 

*  *  * 

MOVE  STK  »    CO  >  .STACK- 1 ] 

The  right  half  of  the  stack  is  set  at  stack-i  because  a  push  always 
increments  and  then  deposits.  The  first  push  increments  stack-i,  yielding 
stack,  the  location  of  the  beginning  of  the  stack. 

The  usual  way  to  monitor  for  an  overflow  error  is  to  place  the  negative 
value  of  the  stack  depth  in  the  left  half  of  the  stack  accumulator.  Since 
each  push  increments  both  halves,  overflow  occurs  when  the  left  half 
crosses  from  negative  to  0,  and  the  system  will  trap  this  error  and  stop. 
A  minor  difficulty  arises,  however,  in  that  the  last  element  allowed  by  the 
depth  will  cause  a  trap!  Thus,  if  you  want  to  push  five  elements,  you  must 
set  the  depth  to  6  so  that  the  trap  will  not  activate  when  you  place  the 
fifth  element  on  the  stack.  Below  is  an  example  of  a  stack  setup  for  overflow. 

STK=17 
DEPTH=50 
STACK:  BLOCK  DEPTH 

•  •  • 

MOVE  STK.    C-DEPTH..  STACK-I] 
The  assembly  directive  iowd  sets  up  a  stack  for  overflow  monitoring. 
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MOVE  STK  i    CIOWD  DEPTH  (STACK ] 


After  the  above  instruction,  STK  would  contain  -  depth. .stack  - 1.  We 
could  push  47  (octal)  elements  onto  this  stack;  we  could  place  a  fiftieth 
element  on  the  stack,  but  the  system  would  trap. 

Let  us  now  repeat  our  simulation  of  NOUT%  via  pboutc,  this  time  using 
a  stack. 

quotient  gets  number 
while  quotient  not  zero 
begin 

divide  quotient  by  divisor 
push  remainder 
quotient  gets  quotient 
end 

count  gets  number  of  remainders 
(from  the  left  half  of  stack  ac) 
for  i:  =  1  to  count 
begin 
pop  a  digit 
show  digit 
end 

The  assembly  version  follows. 


TITLE  EXAMPLE  22 


iNOUTZ   via  PBOUTZ 
iusins   a  stack 
inote    radix  not  used 
ithis   prosram  could  be 
iimproued   by   usins   a  RDTTYZ 
5to   accept   an  output 
base   and  any  number 
ialsot   the   extra  ASCII  offset 
5for  characters   above  9 
! c  o u 1 d   be  added 


STACK  : 
BASE  : 
NUM: 


SEARCH  MONSYM 

QU0  =  5 

REM  =  6 

C0UNT=7 

STK=17 

DEPTH=20 

BLOCK  DEPTH 

*D8 

*  DS8 


iout   base   is  octal 
inumber   to   be  converted 
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START:  MOVEI   STK  .  STACK 

MOUE  QUO.NUM 
WHILE:  JUMPE  QUO  *  GETCT 

IDIV  QUO  i  BASE 

PUSH  STK  .  REM 

JRST  WHILE 
GETCT:  HLRM  STK »  COUNT 

JUMPE  COUNT.  DONE 
FOR :  POP  STK  »  1 

ADD  I    1  .  "0" 

PBOUT*. 

SOJG  COUNT  i  FOR 
DONE:  HALTFX 

END  START 


lor  MOVE  STK  ,10,  .STACK ] 


iSet   number   of  pushes 
!  c  h  e  c  k   for   a  zero 
?  p  u  t   value    in   ac  1 
iASCII  offset 


Placing  elements  on  a  stack  via  a  push  does  not  mean  we  can  only  remove 
them  via  a  pop.  For  instance,  if  we  loaded  the  stack  using  push  stk, 
element,  we  could  use  indexing  to  retrieve  data  via  the  instruction  move 

AC,  STACK(INDEX). 

Stacks  are  also  helpful  in  (pre)sorting.  The  program  below  sorts  data 
into  even  and  odd  numbers.  It  uses  two  stacks,  one  for  the  even  numbers 
and  one  for  the  odd  numbers.  We  need  not  test  to  see  if  a  number  is  even 
or  odd;  instead,  we  can  use  the  least  significant  bit  (bit  35)  to  designate 
the  stack  accumulator  by  copying  bit  35  into  the  push  instruction's  ac,  bit 
12.  This  program  appears  to  be  rewriting  itself.  It  could  be  dangerous! 
An  execuTe  opcode,  xcr,  can  help  avoid  changing  the  code  in  a  procedure. 
This  opcode  allows  the  program  to  jump  out  of  the  flow  of  instructions, 
execute  the  one  instruction  at  the  effective  address  of  the  xcr,  and  then 
return  to  the  instruction  after  the  xcr.  (See  the  discussion  of  reentrant 
code  in  the  next  section.) 


DATA 


STACKO: 
STACK  1 i 
EUEN  : 
PTR: 
HERE: 


TITLE  EXAMPLE  23 

SEARCH  MONSYM 

DEPTH= 10 

0 

1 

2 

3 

a 

5 
G 
7 

C0UNT=5 
BLOCK  DEPTH 
BLOCK  DEPTH 
Z 

POINT  1  .  HERE  .12 
PUSH  .3 


»  s  t  a  c  K  sort 

inumber   of   data  pieces 

!the   data  to   be   sorted  into 

5   even  and  odd 


ac  5   is   used   as   a  counter 
stack   for   even  numbers 
stacK   for  odd  numbers 
number   of   even  numbers 
choose   a  stack 
note   ac   determined   by  PTR 
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START:  MOVE  0.    [ 0  .  .STACKO- 1 ]     iset   up   euen  stackO 

MOVE   1.    [0  ,  .STACK  1  -  1  ]     iset   up   odd  stackl 
SETZ  COUNT  . 

LOOP:  MOVE  3.   DATA ( COUNT )         5    place   a  number   into   ac  3 

DPB  3.   PTR  iplace   bit  35  of   ac  3 

?into   bit   12  of  HERE 
XCT  HERE  ido   the    instruction   at  HERE 

iusins*   an   XCT  makes  this 
!  reentrant  i   see   next  section 

ADD  I   COUNT  .  1 
CAIE  COUNT  ,  DEPTH 
JRST  LOOP 

Jshow   the   euen  numbers 

HRROI    1  .  [ASCIZ/ 

the   even  numbers  are 

/  ] 

PS0UT2. 

HLRM  0.   EVEN  ileft   half   of   stack  pointer 

{contains   number   of  pushes 

SETZ  COUNT  > 

MOVEI   3.12  iset   up  NOUTI 

SHOW :  MOUEI    1  .    . PRIOU 

MOUE  2  >  STACKO(COUNT) 
NOUTZ 
HALTFX 

HRROI    It    C12BB+15B13]     iCR.  LF 
PSOUTX 

ADD  I   COUNT.  1 
CAME  COUNT.  EUEN 

JRST  SHOW 
HALTFX 
END  START 

To  sort  at  a  finer  level  than  even  and  odd,  you  can  use  a  3-bit  byte  and 
eight  stacks.  This  method  will  return  the  partially  sorted  data  to  the  data 
area  after  each  presort,  with  the  next  3  bits  of  each  data  word  available 
for  the  next  presorting.  This  process  will  eventually  sort  all  the  data. 

A  few  additional  opcodes  are  designed  to  work  with  the  half-word  struc- 
ture of  the  stack  accumulator,  aobjx  means  "Add  one  to  Both  halves  and 
jump  on  x,"  where  x  can  be  P  for  positive  or  N  for  negative  (bit  0).  Another 
opcode,  adjsp  (ADJust  the  stack  Pointer),  allows  you  to  change  the  posi- 
tion of  the  top  of  the  stack.  Like  adjbp,  this  instruction  can  move  the 
stack  pointer  using  the  value  in  the  operand. 


8.2  Subroutines 

Subroutines,  also  known  as  procedures,  are  a  very  important  concept  in 
programming.  They  allow  you  to  write  blocks  of  code  once  for  multiple 
use.  More  importantly,  they  allow  you  to  use  a  top-down  structure  in 
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tackling  problems.  You  can  think  of  a  program  in  broad  concepts  (proce- 
dures), which  you  can  refine  (more  procedures),  basic  uses  "gosub  label" 
and  return  to  handle  subroutines.  Fortran  uses  "call  name"  and 
return.  These  instructions  call  for  the  system  to  save  a  value  (the  next 
line)  for  use  upon  return.  The  programmer  does  not  become  involved 
in  this  process.  In  assembly,  however,  the  user  must  make  room  for  the 
value.  The  value  is  the  program  counter,  PC  word,  or  simply  PC.  It  con- 
tains the  address  of  the  next  instruction  to  be  executed.  (The  system  takes 
care  of  incrementing  the  PC  after  each  fetch.) 

The  simplest  method  for  calling  a  subroutine  is  a  Jump  to  subRoutine, 
or  "jsr  label."  This  instruction  saves  PC  in  the  location  "label"  and  assigns 
PC  the  value  "label +  1." 

(pc)  JSR  LABEL  icall»pc    Set  label+1 

( PC  +  1  ) 

•  «  • 

label:  2  iplaces   pc+1  here 

label+1  execute   this  line 

*  *  * 

JRST@label  5  r  e  t  u  r  n 


The  assembler  generates  the  value  of  (PC)  and  (PC  + 1).  (See  the  discussion 
of  macro  in  Chapter  5.)  The  return  is  an  indirect  jump  using  "label."  The 
fact  that  you  write  the  value  of  the  PC  into  the  subroutine  places  some 
restrictions  on  its  use.  Namely,  by  changing  part  of  the  subroutine  (chang- 
ing the  Z  to  the  PC  value),  the  subroutine  is  "nonreentrant."  A  reentrant 
subroutine  does  not  change  any  opcode  values  within  the  routine.  Thus, 
reentrant  subroutines  are  important  when  more  than  one  user  is  calling 
the  routine.  By  not  allowing  opcodes  to  change,  users  can  share  routines 
without  interfering  with  each  other.  Reentrant  subroutines  also  have 
meaning  for  a  single  user  when  interrupts  are  possible,  as  you  will  see  in 
Chapter  11.  A  second  restriction  is  that  storing  the  PC  (the  return  address) 
in  a  fixed  location  means  that  the  subroutine  is  "nonrecursive."  A  recur- 
sive subroutine  can  call  itself.  (Neither  basic  nor  Fortran  have  this 
capability  though  some  other  languages,  like  pascal  and  lisp,  do.)  Exam- 
ple 25  on  page  00  is  a  recursive  routine. 

Parameter  passing  is  another  problem  with  the  simple  call  jsr.  jsr  is 
more  similar  to  gosub  in  basic  than  to  "call  name(parameter  list)"  in 
Fortran.  Thus,  values  to  be  passed  must  be  in  accumulators  or  in  explic- 
itly labeled  locations.  Below  is  one  way  to  add  two  numbers  via  jsr,  for 
example. 
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NUM1  : 
NUM2  : 


ualuel 
v  a  1  u  e  2 


JSR  ADDER 


ADDER: 


Z 

MOUE  AC  .  NUM1 
ADD  AC  ,  NUM2 
JRST  SADDER 


*    »  • 


Though  an  alternative  would  be  to  use  one  label  with  NUM2  referenced 
by  numi  +  1,  you  would  then  need  at  least  one  label  (or  an  ac  with  indexing, 
among  other  options).  If  you  needed  to  add  many  pairs  of  numbers,  ref- 
erencing the  pairs  would  become  a  mess.  In  this  case  the  JSR  option  is  not 
helpful. 

Another  method  of  calling  a  subroutine  is  Jump  and  save  the  Program 
counter,  JSP.  This  opcode  has  the  following  form. 

JSP  AC  i  LABEL 

This  opcode  saves  the  program  counter  in  the  ac  and  executes  the  sub- 
routine located  at  label.  The  original  contents  of  the  ac  are  lost.  Because 
the  subroutine  doesn't  have  to  reserve  a  space  for  the  PC,  it  is  reentrant. 
It  can  also  be  recursive,  but  with  restrictions.  If  the  subroutine  is  to  call 
itself,  it  must  use  a  different  ac  for  every  call,  which  can  lead  to  confusing 
returns.  Passing  parameters  is  easier  with  a  JSP  than  with  a  JSR.  A 
program  can  place  the  parameters  after  the  JSP  and  fetch  by  indexing  off 
the  jsp's  ac. 


Remember  that  after  the  system  fetches  instruction  jsp,  it  increments 
the  program  counter  and  places  the  value  in  the  ac.  Therefore,  after  the 
computer  fetches  JSP,  the  saved  PC  references  valuel.  If  no  parameters 
are  passed,  then  jrst  @ac  would  be  a  return.  But,  since  an  ac  stores  the 
PC,  a  faster  and  preferred  method  is  jrst  (AC).  If  N  parameters  are  passed, 
the  return  is  JRST  N(AC). 


JSP  AC  t  LABEL 

valuel 

v  a  1  ue2 


LABEL : 


MOUE  AC1  ,  O(AC) 
ADD     AC1  ,    1 (AC) 


icopy  valuel  into  AC1 
iadd   valueZ   to  AC1 


STACKS  AND  SUBROUTINES  97 


The  most  commonly  used  subroutine  call  is  a  push  Jump,  or  pushj. 
This  call  uses  a  stack  to  save  the  PC  word  and  then  jumps  to  the  subroutine. 


PUSHJ   STK  ,  LABEL 


STK  is  set  up  as  a  normal  stack  accumulator.  A  pop  jump,  or  popj  stk, 
will  accomplish  a  return.  Because  of  the  lifo  structure  of  a  stack,  this 
method  of  calling  allows  for  nesting  subroutines  as  well  as  recursion.  It 
also  allows  passing  parameters  but  is  not  as  label-free  as  JSP.  Effective 
use  of  push  and  pop  can  make  parameter  passing  interesting.  (To  see  how 
Fortran  handles  subroutines  and  parameters,  see  Appendix  D.) 
Table  8-1  summarizes  the  subroutines  we  have  been  discussing.  Below  is 
a  Gong)  program  that  illustrates  these  calls.  The  program  is  an  "improved" 
version  of  example  8,  the  "calculator"  program.  This  program  allows  for 
parentheses  and  an  error  routine  to  check  for  correct  use  of  parentheses. 
The  program  will  accept  a  string  like  3 +  (5*2),  yielding  13.  The  same 
string  without  parentheses  would  yield  the  answer  of  16  (3  plus  5  is  8;  8 
times  2  is  16).  The  first  part  of  the  program  below  is  the  initialization. 


PTR: 
STRING 


STACK : 

TEMPI : 
TEMP2: 


TITLE 

EXAMPLE  2a 

Jnested  parentheses 

SEARCH 

MONSYM 

AMT=20 

55   times   number   of  chars 

iin   an   expression   to  be 

ievaluated 

POINT 

7,  STRING 

istore   the  expression 

:  BLOCK 

AMT 

there 

AC  =  B 

Jused   in  JSP  (GETEM) 

NUM  =  7 

iused  as   a  counter 

ER=10 

iused   in  JSP  (ERROR) 

STK=17 

5  s  t  ac  K  ac 

DEPTH= 

40 

idepth   of  stacK 

BLOCK 

DEPTH 

0P=1  1 

iac   used   to  hold  operators 

Z 

z 

{scratch  pad  area 

TABLE  8-1.    Subroutine  Calls 

Method  1 

Method  2                    Method  3 

Call 

JSR  LABEL 

JSP  AC,  LABEL      PUSHJ  STK,  LABEL 

Return 

JRST  (5  LABEL 

JRST  (AC)              POPJ  STK, 

Reentrant? 

No 

Can  be                   Can  be 

Recursive? 

No 

Limited                  Can  be 

Parameter  Passing       Nothing  special 

Index  off  ac             Use  stack 
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And  below  is  the  program. 

START:     MOVE  STK  »    CO»  .STACK]  »set   up  stack 

JSR  GETEIi  iSet   the   strinS  expression 

JSP  AC  .   CHECK  icheck  parentheses 

PUSHJ  STK  .  EVAL  ieualuate  expression 

PUSHJ  STK.   SHOWEM  5show  answer 
HALTFX 

JRST  START  irestartable 
The  subroutine  to  read  the  expression  getem  uses  rdtty%. 

GETEM:  Z 

HRROI    1.   [ASCIZ/type   in   an   expression  /] 
PS0UT2 
MOVE   1 .  PTR 
MOVEI   2.  AMT*5 
SETZ  3. 
RDTTYZ 
Z 

JRST  0GETEM 

The  next  procedure,  check,  reads  the  string  and  checks  for  two  possible 
parentheses  errors,  num,  the  number  of  left  parentheses  minus  the  num- 
ber of  right  parentheses,  helps  monitor  these  errors.  When  the  system 
has  read  the  complete  string,  num  should  be  equal  to  0 — that  is,  the 
number  of  open  parentheses  equals  the  number  of  closed  parentheses. 
Also,  since  an  open  parenthesis  must  come  before  a  closed  parenthesis, 
num  should  never  be  negative.  A  negative  indicates  an  error  in  the  string. 
Below  is  the  check  procedure. 

procedure  check 
num:  =  0 
error:  =  false 
get  char 

while  char  <>  carriage  return  do 
begin 

if  char=  '('  then  increment  num 
if  char=  ')'  then  begin 

decrement  num 

if  num  <  0  then  error 

end 

get  char 
end 

if  num<>  0  then  error 
return 

The  assembly  routine  follows. 
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CHECK:  SETZ  NUM  » 

MOUE   1  ,  PTR 
WHILE:  I  LDB   2  ,1 

CAIN  2  »15 

JRST  WEND 
CAIE  Zf  "(" 

JRST  RIGHT 
AOJA  NUM.  WHILE 
RIGHT:  CAIE  2,  ")" 

JRST  WHILE 
SOJGE  NUM  ,  WHILE 
ERR:  JSP  ER  >  ERROR 

1 

SETZ  NUM  » 
JRST  WHILE 
WEND:  CAIN  NUM  >  0 

JRST  (AC) 
JSP  ER  >  ERROR 

2 

JRST  (AC) 


inet   am  t   of    (    and  ) 

iset   the  strins 

!  S  e  t   a  char 

!CR   is   end   of  strins 

lis  char  a  ( 
i  n  o 

!yes>   increase   (  count 
Sis   char  a  ) 

icount   cannot   be  negative 

ivalue   of  error 

iso   a  continue   is  possible 

ichecK  if  same  num  of  (  and  ) 
ireturn 


lvalue   of  error 
?  return 

If  an  error  occurs,  JSP  calls  the  error  procedure,  which  consists  essen- 
tially of  error  messages.  A  jump  table  within  the  error  procedure  deter- 
mines the  message  to  be  printed.  The  value  (parameter)  directly  after  the 
jsp  call  helps  locate  the  correct  JRST  in  the  table;  it  passes  the  value  to 
ac  3,  which  becomes  an  index  into  the  jump  table. 

ERROR:      MOUE  3»    (ER)  !set  parameter 

JRST  ERROR+ 1 ( 3 ) 
JRST  ERROR  1  iJump  table 

JRST  ERR0R2 
JRST  ERR0R3 

HRROI    It    CASCIZ/    somethinS     is     wronS     in  the 

Jump  table/] 

HALTFI 

HRROI    1»   [ASCIZ/   a   )    came   before   a   (  /] 
JRST  ERRET 

HRROI  It  [ASCIZ/  not  the  same  number  of  (  and 
)  /] 

JRST  ERRET 

HRROI  1>  CASCIZ/  invalid  operation  /]  isee 
below 

JRST  ERRET 

PSOUTI  ishow  message 

HALTFI  Sstop 

JRST   1(ER)  Sallows   a  continue 

The  error  procedure  uses  a  continue  to  enable  the  user  to  discover  other 

errors  once  a  first  error  is  revealed.  Since  this  procedure  is  not  very 

sophisticated,  the  value  of  the  continue  is  questionable.  However,  it  helps 

give  you  an  idea  of  how  a  computer  program  scans  a  line,  a  process  known 

as  syntax  checking. 


ERROR  1 
ERR0R2 

ERR0R3: 

ERRET : 
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If  the  procedure  reveals  no  errors,  then  the  system  can  safely  evaluate 
the  expression  using  the  eval  procedure,  eval  is  very  similar  to  the 
procedure  illustrated  in  example  8,  but  it  has  the  added  ability  to  handle 
parentheses.  When  it  reads  an  open  parenthesis,  the  program  stores  the 
present  value  of  the  calculation  and  the  current  operation.  When  it  reads 
a  closed  parenthesis,  it  retrieves  the  previous  stored  value  and  operation. 
The  system  evaluates  the  previous  value  and  the  current  value  based  on 
the  retrieved  operation.  An  open  parenthesis  can  only  occur  in  expectation 
of  a  number;  a  closed  parenthesis  can  only  occur  in  expectation  of  an 
operator.  Therefore,  before  reading  a  number,  the  system  must  check  a 
single  character  to  see  if  it  is  an  open  parenthesis.  If  it  is,  it  places  the 
previous  values  on  the  stack  and  restarts  the  program.  If  not,  the  system 
must  back  up  the  byte  pointer  one  character  and  perform  a  nin%.  nin% 
will  terminate  on  the  first  nondigit.  Unfortunately,  because  the  system 
will  still  read  the  nondigit  character,  the  pointer  must  back  up  one  byte 
after  the  nin%.  When  reading  an  operation,  the  system  must  check  a 
character  to  see  if  it  is  a  closed  parenthesis.  If  not,  it  will  read  it  as  an 
operation  and  proceed  to  do  the  operation.  If  it  is  a  closed  parenthesis, 
the  stack  must  be  popped  twice.  The  popped  operator  will  operate  on  the 
present  value  of  the  expression  and  the  popped  value. 

procedure  eval 
again:      op:  =  '  +  ' 
temp:  =  0 

while  op  <>  '  =  '  do 
get  char 

if  char  =  '('  then  begin 

push  temp 
push  op 
jump  to  again 

end 

else  getnum 
do  op 
get  char 

if  char  =  ')'  then  begin 

pop  op 
pop  temp 
do  op 

end 

else  getop 
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The  assembly  version  follows. 


EUAL :  MOUE   1  ,  PTR 

AGAIN:  MOUEI   OP  »    "  +  " 

SETZM  TEMPI 
5  s  t  a  rt   while  loop 
WLOOP:  CAIN  DP. 

POPJ  STK  , 
?set   a  char   see   if   it   is  ( 

MOVEM   1  .  TEMP2 

ILDB  a ,  1 

CAIE  a  , " ( " 

JRST    [MOVE    1  .  TEMP2 
JRST  GETNUM] 

PUSH  STK  .  TEMPI 

PUSH  STK  »  OP 

JRST  AGAIN 


GETNUM ; 


FINDQP: 


PLUS  : 
MINUS: 

MULT  : 
GETOP : 


MOVEI 
NINX 
Z 

MOVN  I 
ADJBP 
MOVEM 


12 


CAIN  OP,  "+" 

JRST  PLUS 
CAIN  OP,  "-" 

JRST  MINUS 
CAIN  OP,  "*" 

JRST  MULT 
JSP  ER  ,  ERROR 

3 

HALTFX 
JRST  START 
ADDM  2.  TEMPI 

JRST  GETOP 
SUB  2.  TEMPI 
MOVNM  2.  TEMPI 

JRST  GETOP 
IMULM   2  ,  TEMPI 

ILDB  OP  .  1 
CAIE  OPi  ")" 

JRST  WLOOP 
POP  STK  ,  OP 
POP  STK  ,  2 
JRST  FINDOP 


i  S  e  t  expression 
{initialize  op 
land  TEMPI 


return 

save   the  pointer 
Set   a  character 

is    it  ( 
n  o  i   then    restore  pointer 
and    Set   the  number 

■/est   then   save  TEMPI 
and   the  op 
start  over 
set   up  NINX 


iwhen    reading  disits 
»the   NINZ  will    read   until  it 
Jfinds   a  non   d  i  S  i  t  >  then 
ibacK   up   Ptr   one   byte  to 
iset   terminating  non  disit 


'bad  opcode 
ican   not  continue 
!  restartable 
5  d o  op 

ithis    is   ac2  minus  TEMPI 
» n  o  w   it    is   TEMPI   minus  ac2 


iset   the   next  op 


yes  i   then   set   old  op 

and  previous  TEMPI 
do  operation 
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The  last  procedure,  showem,  is  a  simple  nout%. 


SHOWEM:  MOYEI    1.  .PRIOU 

MOVE  2  .  TEMPI 

MOVEI   3.  12 

NOUTZ 
i 

PDPJ  STK  , 
END  START 


The  next  example  demonstrates  recursion.  The  problem  is  to  calculate 
N  factorial  (Nl).  Recall  that  N\  =N*(N-1)*  ■  ■  ■  *1.  For  example,  3!  =  6, 
4!  =  24.  The  definitions  of  0!  and  1!  are  both  1.  You  can  use  iteration  to 
perform  a  factorial. 


FACT0R= 1 

FOR   I=N  DOWNTO   1  DO 

FACT0R=I*FACT0R 


To  do  this  problem  via  recursion,  define  the  factorial  symbol  (!)  in  terms 
of  itself.  The  values  of  0!  and  1!  are  the  only  values  defined  without  the 
factorial  symbol.  Using  recursion,  factor  becomes  a  function. 


FACTOR ( N ) 
IF  N<=1   THEN  FACTOR=l 

ELSE  FACT0R=N*FACT0R(N-1 ) 


Note  that  the  function  factor  calls  itself,  which  is  its  recursive  element. 


TITLE  EXAMPLE  25 


STACK 


TEMPI 


SEARCH  MONSYM 
STK=17 
DEPTH=20 
BLOCK  DEPTH 


factorial   uia  recursion 

this   program  could   be   improved  by 

usins  RDTTYZ 

check   for  negatives 

too    1  a  r  9 e   a  number 

and  error  routines 

as  well   as   a  fancier  printout  i 

like  3! =6 


ihalf   the   stack   is   used  for 
i  returns  i   the   other  for  numbers 
ithen   with   a   depth   of   20  the 
ilarsest   factorial    is  20/2=10  or  8 
iscratch  area 
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START:  MOVE  STK  >    CIOWD  DEPTH*   STACK ] 

PUSHJ  STK  i   GETNUM        iset   the  number 
PUSHJ  STK »  FACTOR       icalculate   its  factorial 
PUSHJ  STK  >  SHOWAN       ishow  the  answer 
HALTFX 
JRST  START 


GETNUM 


FACTOR i 


HRROI  1»  [ASCIZ/  type  in  a  positive  number  /] 
PSOUTX 

MOVEI    li  .PRIIN 
MOVEI   3,  12 
NINX 
Z 

POPJ   STK  i 

call   this    routine  with 
a  number   in   ac  2 
leave   this    routine  with 
an   answer   in   ac  2 
if  N=l   then  return 
return 

save   ac  2  value 
construct  N-l 
call   with  N-l 
Set   last   ac  2  value 
form  N*FACTOR(N-l ) 
return 


CAIG  2,  1 

POPJ  STK  t 
PUSH  STK  ,  2 
SUBI   2»  1 
PUSHJ  STK  ,  FACTOR 
POP  STK  .  TEMPI 
IMUL  2»  TEMPI 
POPJ  STK  , 


Scall   this  with   a  number 
5 1  o   be   printed    in   ac  2 
SHOWAN:       HRROI    it   [ASCIZ/   the   factorial   value   is  /] 
PSOUTZ 

MOVEI    1  .    . PRIOU 
NOUT% 
Z 

POPJ  STK  , 
END  START 


8.3  External  Subroutines 

In  this  section,  we  will  learn  how  to  call  subroutines  that  are  external  to 
the  calling  program.  External  procedures  can  be  in  a  program  or  in  a 
library,  which  is  a  collection  of  procedures  (not  a  program).  A  library  does 
not  have  a  label  following  end.  In  order  to  execute  a  program  with  an 
external  procedure,  the  computer  (linker)  must  have  the  file  containing 
the  program  and  the  file  containing  the  external  procedure.  For  example, 
if  the  file  containing  the  program  were  prog,  mac  and  the  file  containing 
the  external  procedure  were  extn.mac,  you  would  type  the  following  at 
tops-20. 
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EX  EXTN . MAC  .PROG. MAC 

The  order  of  the  files  following  ex  is  important  only  when  a  program 
contains  more  than  one  labeled  end  statement.  If  extn.mac  above  is  also 
a  program,  which  program  will  the  system  execute?  It  will  use  the  last 
labeled  end  statement  to  decide.  If  the  external  procedure  is  in  a  library, 
the  order  of  the  files  following  ex  is  not  important.  Once  the  system  has 
collected  the  files,  we  have  a  potential  problem  with  the  assembler.  For 
example,  suppose  we  give  the  label  exsub  to  the  subroutine  in  extn.mac. 
In  the  calling  program  prog.mac,  jsp  ac,  exsub  (or  jsr  or  pushj)  would 
reference  this  routine.  But  prog.mac  does  not  define  exsub  in  its  symbol 
table.  We  can  get  around  this  problem  using  the  assembly  directive  extern 
at  the  beginning  of  prog.mac. 

EXTERN  EXSUB 

If  more  than  one  procedure  is  external  to  the  program,  you  will  need  two 
or  more  externs,  or  extern  exsubI,  exsub2,  and  so  on.  A  symbol 
defined  in  a  program  is  a  local  symbol.  When  the  assembler  is  trying  to 
identify  a  symbol,  it  checks  the  local  symbol  table  first.  If  it  does  not  find 
the  symbol  locally,  it  examines  the  external  tables.  Therefore,  if  a  local 
symbol  and  an  external  symbol  are  symbolically  the  same — for  example, 
they  are  both  called  second — the  assembler  will  use  the  local  definition. 
(You  may  have  considered  using  the  search  directive  to  bring  forth  the 
value  of  the  external  symbol.  However,  search  deals  with  macros,  not 
subroutines.  See  the  next  chapter.) 

The  file  containing  the  external  procedure  raises  another  problem.  In 
order  to  gain  access  from  outside  a  file  to  a  procedure  in  the  file,  you  use 
the  assembly  directive  entry  within  the  file  containing  the  procedure. 
You  must  announce  all  procedures  that  can  be  accessed  by  other  programs 
as  in  the  example  below. 

ENTRY  EXSUB 

The  value  following  entry  must  be  the  starting  label  of  the  procedure. 
If  more  than  one  procedure  is  available,  you  must  use  more  than  one 
entry,  or  entry  exsubi,  EXSUB2,  and  so  on.  Below  are  three  files.  The 
first  two  are  programs  (EXAM26.MAC  and  exam27.mac);  the  third  is  a  library 

(EXAM28.MAC). 
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STACK : 
START: 

/] 


TITLE  EXAMPLE  2G 

SEARCH  MONSYM 
EXTERN  SECOND  >  THIRD 


ENTRY  FIRST 


isimple   p  ro  g  ram 
iusins  external  subs 

5THIRD   is   not   defined  in 
ithis   program  but 
;SECOND   is  .   see  below 
5FIRST   is   available  to 
5other  programs 


STK  =  17 
DEPTH=  10 
BLOCK  DEPTH 
MOVEI    17.  STACK 

HRROI  1»  CASCIZ/  in  first  program 
PSOUTX 

PUSHJ   17,  SECOND 
PUSHJ   17  »  FIRST 
JSR  THIRD 
HALTF'Z. 


FIRST: 


SECOND: 
/] 


HRROI    It   CASCIZ/   sub   in   first  program 

PSOUTX 
POPJ  17. 

HRROI    li    CASCIZ/   second    is  local 

PSOUTX 
POPJ  17. 
END  START 


TITLE  EXAMPLE  27  isimple  program 

Jusing   externals  subs 

SEARCH  MONSYM 

ENTRY  SECOND 

EXTERN  FIRST  ,  THIRD 

STK=17 

DEPTH=20 
STACK:  BLOCK  DEPTH 

START:  MOVE  STK  »    CO,  .STACK] 

HRROI    1  .   CASCIZ/   in   second  program 

/] 

PSOUTX 

PUSHJ   17.  FIRST 
PUSHJ   17.  SECOND 
JSR  THIRD 
HALTF'Z. 
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SECOND:       HRROI    1»   CASCIZ/   sub   in   second  program 
/] 

PSOUTZ 
POPJ  17, 
END  START 


TITLE  EXAMPLE  28  ia  library 

SEARCH  MONSYM 
ENTRY  THIRD 
THIRD:  Z 

HRROI    It   CASCIZ/   sub   in  library 

/] 

PSOUTX 
JRST  @TH I RD 

END  >  n  o  t  e  no  label 

5followin3  end 


If  we  execute  the  files  via 

EX  EXAM26 . MAC »EXAM27 . MAC (EXAM28 . MAC 

EXAM27  is  the  program  (as  distinguished  from  external  subroutines),  and 
the  printout  would  be  as  follows. 

in   second  prosram 
sub    in   first  proSram 
sub   in   second  program 
sub   in  library 

If  we  execute  the  files  via 

EX  EXAM27 . MAC »EXAM2G . MAC  iEXAM28 . MAC 

EXAM26  is  the  program,  and  the  printout  would  be  as  follows. 

in   first  prosram 
second   is  local 
sub   in   first  program 
sub   in  library 

Note  that  the  call  and  accumulator  that  do  the  calling  also  do  the  return- 
ing. In  the  above  programs,  pushjs  using  ac  17  referenced  first  and 
second.  Thus,  the  returns  must  be  popjs  using  ac  17.  In  the  library, 
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third  is  set  up  for  a  jsr  (because  of  the  leading  Z);  therefore,  jsr,  not 
jsp  or  pushj,  should  call  it  as  well.  Using  the  symbol  stk  in  both  programs 
will  not  create  confusion  (nor  is  it  necessary  to  use  it),  because  symbols 
are  local  to  the  program  that  defines  them.  However,  the  symbol  must 
refer  to  the  same  ac  in  both  programs.  Programs  can  share  symbols  much 
as  they  share  subroutines.  A  shared  symbol  is  called  a  global  symbol.  To 
make  a  symbol  global,  use  the  directive  intern  in  the  file  that  defines 
the  symbol,  intern  is  similar  to  entry.  Use  extern  in  the  file  that 
wishes  to  use  the  symbol.  The  pair  entry/extern  initiates  shared  sub- 
routines. The  pair  intern/extern  governs  shared  symbols  and  thus  the 
values  within  the  symbol  locations.  If  the  values  to  be  shared  are  in  accu- 
mulators, you  need  not  use  the  directives.  If  too  many  values  are  to  be 
shared  or  if  the  accumulators  are  needed  for  some  other  reason,  you  must 
use  globals  to  share  information. 

One  difficulty  with  the  above  method  of  using  external  subroutines  is 
that  you  must  type  in  the  name  of  all  files  needed  by  the  program:  ex 
EXAM26,  EXAM27,  and  so  on.  Why  not  place  the  names  of  extra  files  within 
the  program?  The  assembly  directive  .require  (the  leading  period  is 
necessary)  allows  you  to  do  this.  Of  course,  some  conditions  are  necessary. 
All  subroutines  needed  by  a  program  must  be  in  libraries  (no  label  after 
the  end  statement),  and  all  libraries  must  be  compiled.  When  these  con- 
ditions are  met,  type  the  names  (no  extension)  of  the  libraries  after  the 
directive.  Thus,  to  execute  the  program,  you  need  only  announce  the 
program  name;  the  linker  will  use  the  files  following  the  directive  .require. 
For  example,  if  you  replaced  the  line  extern  second,  third  in  example 
26  with  extern  third  and  then  added  the  line  .require  EXAM28,  you 
would  only  need  to  type  EX  EXAM26.MAC  to  execute  the  program. 

8.4  Coroutines 

Main-line  programs  and  subroutines  have  a  master-slave  relationship.  A 
subroutine  waits  to  be  called  by  the  main-fine  program.  When  called,  the 
subroutine  executes  a  block  of  code  from  beginning  to  end.  Thus,  subrou- 
tines exist  in  a  dictatorship  ruled  by  a  main-line  program.  Coroutines,  on 
the  other  hand,  exist  in  a  democracy.  Much  cooperation  (interwoven  calls) 
exists  between  coroutines,  with  no  clear  hierarchy.  One  way  to  handle 
multiple  users  on  a  single  computer  (processor)  is  to  treat  each  user  (process) 
as  a  coroutine.  No  process  is  a  slave  to  another  process.  An  alternative 
to  running  coroutines  is  to  run  routines  sequentially;  a  new  process  cannot 
start  until  another  process  has  finished.  If  the  processes  are  efficiently 
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written,  sequential  processing  is  fine.  However,  a  process  with  a  great 
deal  of  I/O  can  lead  to  wasted  time  waiting  for  i/o.  Coroutines  enable  you 
to  execute  one  process  while  waiting  for  i/o  on  another. 

Let  us  look  at  an  example  that  uses  two  loops,  or  coroutines.  Loopl 
types  a  message  requesting  a  number.  Execution  then  transfers  to  loop2 
where,  for  want  of  something  simple  to  do,  a  counter  counts  down.  When 
the  counter  gets  to  0,  control  passes  back  to  loopl,  which  then  accepts  a 
number.  Once  the  system  reads  a  typed  number,  it  transfers  control  back 
to  loop2,  prints  "thanks,"  and  transfers  control  back  to  loopl.  Figure  8-1 
shows  the  time  flow  of  the  control  schedule.  Remember  that  coroutines 
interleave  time,  not  memory.  Thus,  loopl  is  in  a  contiguous  block  of 
memory  that  does  not  overlap  with  loop2's  contiguous  block  of  memory. 

The  macro  program  below  illustrates  code  for  this  example.  The  counter 
in  loop2  uses  the  number  supplied  by  loopl.  In  a  "real"  problem,  loop2 
would  be  doing  something  more  meaningful  than  counting  down.  The 
countdown  number  can  be  very  large  before  you  notice  terminal  response 
hesitation  in  jumps  from  one  loop  to  another.  (Because  the  decsystem- 
20  is  a  time-sharing  system,  this  number  is  only  a  relative  quantity.) 


loopl 


loop2 


request  a  number 


count  down 


get  a  number 


print  "thanks' 


Figure  8-1.    A  Sample  Coroutine 
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NUM  : 
START: 
/] 


L00P1 : 
/] 


L00P2: 


/] 


FR0M1T02 


FR0M2T01 


5  s  e  t   up  N  I  N 


TITLE  EXAMPLE  29  Jcoroutines 

SEARCH  MONSYM 

Z 

HRROI    1  ,    [ ASCI2/  STARTING 
PSOUTZ 

HRROI  1 i  [ASCIZ/  TYPE  IN  A  NUMBER 
PSOUTZ 

JSR  FR0M1T02 
MOUEI    1  .    . PRI IN 
MOVEI   3.  12 
NINZ 
Z 

MOVEM  2  »  NUM 
JSR  FR0M1T02 
JRST  LOOP1 
MOVE  10»  NUM 
SOJG  10.  . 
JSR  FR0M2T01 
HRROI    1  i    [ASCIZ/  THANKS 

PSOUTZ 

JSR  FR0M2T01 
JRST  L00P2 

L00P1 

JRST  @FR0M2T01 
L00P2 

JRST  0FROM1TO2 


i'block   of   NUM  statements' 


END  START 


The  period  in  SOJG  io,.  indicates  the  present  value  of  the  location  counter. 
(The  SOJG  instruction  is  the  jump  location.)  jsr  transfers  from  one  co- 
routine to  another.  Recall  that  JSR  captures  the  content  of  the  program 
counter  and  stores  it  at  the  starting  location  of  the  called  routine,  which 
is  the  next  instruction  to  be  executed.  This  instruction  is  an  indirect  jump 
into  the  other  coroutine.  Initially,  the  "jump  to"  address  is  the  first  line 
of  a  coroutine  loop.  After  each  call,  jsr  updates  this  address  with  the 
latest  PC  value. 

The  coroutines  discussed  above  are  effectively  independent  of  each  other, 
for  they  do  unrelated  tasks.  You  can  also  use  coroutines  to  help  execute 
a  single  problem.  For  instance,  let  us  consider  one  way  to  use  coroutines 
to  format  text  in  a  word  processor.  One  coroutine  could  read  in  characters, 
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eliminating  redundant  blanks  as  well  as  blank  lines,  and  place  these  char- 
acters into  a  buffer  (a  block  of  memory).  Another  coroutine  could  read 
from  this  buffer  and  write  words  to  another  buffer.  Finally,  a  third  co- 
routine could  read  the  words  and  print  them  on  lines  of  fixed  width  without 
breaking  words.  The  routines  cooperate  in  this  way:  Once  the  character 
buffer  is  full,  the  "read  character"  routine  pauses,  passing  control  to  the 
"make  word"  routine.  This  routine  constructs  words  from  these  charac- 
ters and  places  them  into  the  word  buffer.  If  the  word  buffer  fills,  the 
"make  word"  routine  passes  control  to  the  "print  line"  routine.  If  the 
word  buffer  does  not  fill,  the  "make  word"  routine  passes  control  back  to 
the  "read  character"  routine.  Figure  8-2  illustrates  this  process.  Note 
that  the  jsr  method  of  transferring  control  would  not  work  in  this  exam- 
ple. The  "word-making"  coroutine  can  transfer  to  either  the  "read  char- 
acter" or  "print  line"  coroutine,  which  would  require  two  places  for  the 
"make  word"  program  counter. 

In  the  above  examples,  we  have  only  needed  to  preserve  the  PC  when 
transferring  from  one  routine  to  another.  However,  regardless  of  the 
amount  of  (or  lack  of)  cooperation,  the  routines  are  still  independent 
processes  so  we  must  generally  preserve  more  than  the  PC.  Specifically, 
we  must  preserve  any  quantity  of  one  coroutine  that  could  be  changed 
inadvertently  by  another  coroutine.  Typically  we  will  need  to  preserve 
accumulators  (and  possibly  some  memory)  as  well  as  the  PC.  (The  accu- 
mulators in  example  29  did  not  contain  state,  or  conditional,  information, 
so  we  did  not  need  to  save  their  contents  before  transferring.)  One  way 
to  preserve  the  necessary  elements  (and  to  solve  the  above  JSR  problem) 
is  to  create  state  tables.  For  each  process,  we  must  set  aside  a  block  of 
memory  large  enough  to  hold  all  quantities  that  might  change.  To  simplify 
the  problem,  let  us  assume  that  we  need  to  preserve  only  the  PC  and 
accumulator  17.  Given  a  program  of  three  coroutines,  we  must  set  aside 
a  block  of  six  words,  for  example,  statetaB:BLOCK6.  We  give  each  routine 
a  process  identification  number,  such  as  0,  2,  and  4.  We  then  add  the 
process  identification  to  statetab  to  find  the  state  block  for  a  coroutine. 
(These  locations  would  already  be  loaded  with  the  starting  address  of 
each  coroutine.) 


input 


read  characters 


make  words 


print  lines 


output 


Figure  8-2.    A  Text-Formatting  Coroutine 
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STATETAB : 


C0R1 
Z 

C0R2 

L 

C0R3 
Z 


start  address 
corl's   ac  17 

start  address 
cor2's   ac  17 

start  address 
cor3's   ac  17 


routine  one 
saved  here 
routine  two 
saved  here 
routine  three 
sawed  here 


We  can  now  refer  to  coroutines  by  their  identification  numbers.  Thus,  the 
following  program  would  transfer  from  one  routine  (cor2  with  an  identi- 
fication number  of  2)  to  another  (corl  with  an  identification  number  of  0). 


MOYEI 
MOVEI 


1  i  0 

2  .2 


JSP  3  t  trans 


return   here   to  continue 


iprocess  id 
(Process  id 
rin 

jplace   pc  in 
!  goto  t  rans 
process  2 


Joins  to 
presently 

3  and 


TRANS:        MOUEM  3.  STATETAB(2) 

MOVEM   17,   STATETAB+1 (2) 
MOVE   17.   STATETAB+1 ( 1 ) 
JRST  0STATETAB ( 1 ) 


put  old  pc  in 
statetab 

saue   ac  17 

Set  new  17  content 
Jump  into   process  1 


If  we  needed  to  preserve  more  than  one  accumulator,  statetab  would 
expand  and  we  would  need  more  move/movems.  In  the  next  chapter,  we 
will  examine  an  opcode  (blt)  that  helps  transfer  blocks  of  memory  and/ 
or  accumulators. 

8.5  Summary 

One  of  the  major  contributions  to  the  writing  of  software  is  the  concept 
of  top-down  programming.  With  this  approach  a  programmer  first  answers 
all  "what"  questions  and  then  all  "how"  questions.  Effectively  "what" 
questions  are  the  names  (calls)  of  subroutines  (procedures)  and  "how" 
questions  are  the  actual  subroutines.  Programs  can  be  thought  of  as  made 
up  of  units  or  modules.  Allowing  these  modules  to  be  translated  (assem- 
bled, compiled)  separately  (externally)  allows  for  greater  flexibility.  If  a 
module  is  improved,  only  that  external  module  need  be  retranslated  rather 
than  the  complete  program. 

Subroutines  still  do  not  offer  enough  flexibility.  Regarding  certain  code 
optimizations,  the  translator  does  not  interact  with  the  subroutine.  The 
next  chapter  will  introduce  macros.  The  macro  can  contain  code  that 
instructs  the  translator  as  to  what  is  to  be  translated  and  how  to  translate 
it. 
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8.6  Exercises 

1.  Write  a  subroutine  that  will  substitute  a  "new"  character  for  an  "old" 
character  in  a  given  string.  Use  JSP  to  call  the  subroutine,  and  place 
the  three  parameters — pointer  to  a  string,  new  character,  and  old 
character — after  the  call  location. 

2.  Write  a  subroutine  that  will  specify  the  location  of  the  left-most  1  (set 
bit)  in  a  36-bit  dec  word.  Call  this  routine,  and  display  the  position 
value. 

3.  Write  a  queue  program.  Call  a  put  subroutine  to  place  a  number  into 
the  queue  via  a  push.  Call  a  take  subroutine  to  remove  an  element 
from  the  queue.  (Use  another  accumulator,  and  treat  the  stack  block 
as  an  array.) 

Example:  put  or  take  p 
in  value  3 
put  or  take  p 

IN  VALUE  2 
PUT  Or  TAKE  T 
OUT  VALUE  IS  3 
PUT  or  TAKE  D 
DONE 

4.  Set  up  an  external  subroutine  library  (lib. mac)  containing  a  routine 
that  will  add  two  numbers.  Use  a  stack  to  pass  the  numbers  and  their 
sum.  Write  a  program  (prog.mac)  that  sets  up  the  stack,  places  the 
two  numbers  into  the  stack,  and  then  calls  the  external  routine.  Upon 
returning,  pop  and  display  the  answer.  (Note:  Since  the  data  are 
behind  the  return  address,  the  routine  must  first  pop  the  stack  and 
preserve  this  return  value.  Next  pop  the  two  data  values.  Perform 
the  addition,  push  the  answer,  PUSH  the  return  address,  and  return 
with  a  POPJ.) 

5.  Write  a  routine  that  will  accept  three  strings  from  the  terminal,  push 
the  pointers  of  each  string  onto  a  stack.  When  the  last  string  has  been 
typed  in,  pop  each  pointer  and  display  the  strings. 

6.  Sort  a  group  of  octal  numbers  using  eight  stacks  as  described  in  the 
text. 

7.  Write  a  recursive  factorial  routine  that  accepts  numbers  using  rdtty%/ 
nin%  and  checks  for  negative  numbers  (see  example  26). 
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Macros 


We  have  discussed  the  equals-sign  assembly  directive  that  allows  us  to 
define  a  symbol.  As  you  recall,  the  value  of  the  symbol  is  generally  a 
number,  as  in  ac  =  2.  In  this  chapter,  we  will  discuss  user-defined  symbols 
that  are  blocks  of  code  rather  than  single  numbers.  We  need  macros  for 
this  purpose;  like  subroutines,  macros  are  modules  that  are  written  once 
but  can  be  used  many  times.  Evoking  macros  is  different  from  evoking 
subroutines,  however.  The  assembler  places  the  complete  macro  in  the 
program  at  assembly  time  rather  than  jumping  to  the  macro  code  when- 
ever it  needs  a  macro  at  run  time.  The  length  of  a  program  depends  on 
the  number  of  times  a  macro  is  necessary.  A  macro  demands  more  com- 
puter memory  than  does  a  subroutine,  but  it  nonetheless  saves  time  since 
the  program  need  not  save  the  PC  and  jump,  among  other  elements.  Macros 
also  offer  other  advantages.  For  instance,  they  can  use  special  assembly 
directives  that  are  not  available  to  subroutines;  these  directives  can  select 
the  fines  of  code  to  encode. 


9.1  Defining  a  Macro 


Subroutines  generally  appear  at  the  bottom  of  a  program  and  are  usually 
isolated  from  the  rest  of  a  program  (typically  by  a  haltf%).  This  approach 
prevents  the  program  from  slipping  into  the  subroutines.  You  must  gen- 
erally define  a  macro  before  evoking  it,  however,  so  you  need  to  place  it 
at  the  beginning  of  a  program  (similar  to  a  procedure).  Macros  are  iden- 
tified by  their  names,  and  these  names  have  restrictions  much  as  labels 
do.  The  simplest  approach  is  to  use  up  to  six  alphanumeric  characters, 
designating  the  first  as  a  letter.  (Macro  names  should  not  be  the  same  as 
opcodes,  as  you  will  see.)  You  must  use  the  following  format  in  defining 
all  macros. 

DEFINE  macname  (darglist)  < 
statements  > 

define  is  a  reserved  word.  Macname  is  the  name  of  the  macro.  The 
darglist  (the  dummy  argaiment  list)  is  a  list  of  the  formal  parameters  the 
macro  uses.  This  format  is  very  similar  to  that  of  a  FORTRAN  subroutine 
or  a  pascal  procedure.  Parentheses  delimit  the  darglist,  and  the  angle 
brackets  enclose  the  statements  that  are  the  body  of  the  macro.  Placement 
of  the  brackets  is  not  important  as  long  as  they  delimit  the  body  of  the 
macro;  the  opening  bracket  need  not  be  on  the  same  line  as  the  darglist, 
and  the  closing  bracket  can  appear  by  itself  on  the  last  line  of  the  macro. 
Below  is  an  explicit  example  of  a  macro. 

DEFINE   PLUS    (A»   B)  < 
MOVE   1 »  A 
ADD   1  ,   B  > 

Invoke  plus  as  follows. 

#  •  ♦ 

PLUS    (3,  HERE) 

»    *  t 

This  macro  places  the  sum  of  the  contents  of  ac  3  and  location  here  into 
ac  1.  When  the  program  invokes  a  macro,  the  assembler  replaces  the  line 
plus  (3,  here)  with  all  the  lines  in  the  macro. 


MOVE   1 >  3 
ADD     1  .  HERE 
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Below  is  another  macro  example. 


DEFINE   PRINT  (MESS) 
<HRR0I    1  ,    [ASCIZ/   MESS  /] 
PSOUTX 

>  <m  • 


which  we  invoke  as  follows. 


•  *  • 

PRINT    (HELLO  THERE) 

•  •  • 

This  macro  sends  the  message  hello  there  to  the  terminal.  You  can  use 
a  macro  name  within  another  macro  as  long  as  you  have  previously  defined 
the  nested  macro.  (It  is  also  possible  to  define  a  macro  within  another 
macro,  but  we  will  not  discuss  this  issue  here.) 

When  the  assembler  scans  a  line  and  interprets  symbols,  it  looks  at 
macro  definitions  before  opcode  definitions.  Thus,  it  is  possible  to  (erro- 
neously?) change  the  meaning  of  an  opcode.  For  example,  if  we  define  the 
macro  add  as 

DEFINE  ADD  (A>B>< 
IMUL  A,B> 

and  use  the  symbol  add  as 


ADD  2  i  3 

•   *  • 

the  assembler  will  replace  add  with  the  macro  definition  IMUL  2,3  rather 
than  with  the  opcode  add!  To  avoid  possible  confusion,  avoid  using  opcode 
symbols  to  name  macros.  The  following  program  uses  some  standard  macros. 


SAVE: 
NUMBER: 


TITLE  EXAMPLE  30 
SEARCH  MONSYM 
POINT  7,  NUMBER 
BLOCK  2 


i    examples   of  macros 


DEFINE   PRINT    (MESS)  < 

HRROI  1 t  [ASCIZ  ?  MESS  ?] 
PSOUTZ  > 


!?  is  used  rather  than  / 
5so   a  /   could   be  printed 
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DEFINE  INPUT  (MESS.  VALUE )  < 
PRINT  (MESS) 


MOVE   1  . 
MOVEI  2 
SETZ  3  . 
RDTTYZ 
ERJMP 


MOVE   1  . 
MOVEI  3 
NINZ 
ERJMP 


SAVE 
10 


[PRINT 
error) 
HALTFZ ] 
SAVE 
.12 


(RDTTYZ  i/o 


[PRINT   (NINZ   i/o  error) 
HALTFZ] 
MOVEM  2  .  VALUE> 


.nested  mac  ro 
isettind  up  RDTTYZ 
if o  r  8  characters 
ino  message   on  *R 


.set   up  NINZ 


.save   input   in  value 


DEFINE  NUMOUT( VALUE)  < 

MOVEI    1..PRI0U  iset   up  NOUTZ 

MOVEI  3.12 
MOVE  2.  VALUE 
NOUTZ 

ERJMP     [PRINT   (NOUTZ   i/o  error) 
HALTFZ] 

> 


PROG:  INPUT(FIRST  NUMBER    .  FIRST*) 

INPUT(SECOND  NUMBER.  SECOND*) 
PRINT    (THE  SLIM   IS  ) 
MOVE  4.  FIRST 
ADD  a  .  SECOND 
NUMOUT ( a ) 
PRINT  ( 

)  icarriale  return 

HALTFZ 
END  PROG 


If  we  were  to  use  ac  1  instead  of  ac  4  to  do  the  additions  in  the  program 
above,  we  would  introduce  an  error.  Because  the  macro  numout  uses  ac 
1  (as  well  as  acs  2  and  3),  numoutu)  would  not  work.  Since  we  use  acs  1, 
2,  and  3  with  monitor  calls,  we  can  avoid  possible  errors  by  using  them 
only  for  this  purpose.  If  you  need  to  use  all  the  acs  in  a  program,  you 
should  copy  (transfer)  the  contents  of  any  ac  used  by  the  procedure  to  a 
memory  location  before  invoking  the  procedure.  When  the  procedure  is 
complete,  you  must  transfer  the  original  contents  back  to  the  ac. 

blt  (BLock  Transferring)  is  an  opcode  that  copies.  It  will  transfer  N 
machine  words  from  a  location,  say  first,  to  another  location,  say  here. 
Place  the  label  first  in  the  left  half  of  the  ac  used  with  blt  and  the  label 
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here  in  the  right  half.  The  operand  is  the  last  address  in  the  transferred 
section,  here  +  n  —  i.  You  must  be  careful  not  to  transfer  the  ac  used  in 
the  blt  instruction  when  transferring  the  contents  of  acs.  For  example, 
to  transfer  the  contents  of  the  first  five  acs  (0  to  4)  to  here,  use  the 
following  code. 


MOVE  5  .  [0  .  .HERE] 
BLT  5  .  HERE+4 


This  example  could  have  used  any  ac  but  0,  1,  2,  3,  4  with  the  blt.  The 
following  macros  save  and  return  acs. 


DEFINE  SAVE< 

MOVEM  a,   HERE+4  isaue   BLT  ac 

MOVE  Q  .    10  ,  .HERE] 

BLT  4.HERE+3>  imoue   other  acs 


DEFINE  RETURN< 

MOVE  4. [HERE. .0]  .Set  acs  except  BLT's 
BLT  4.3 

M0VE4  .HERE  +  4  >  .Set    last  ac 


Note  that  the  user  must  supply  a  block  labeled  here.  Also,  note  that 
move  freed  ac  4  so  that  BLT  could  use  it.  If  a  macro  and  a  program  use 
the  same  acs,  the  first  line  of  the  macro  should  be  save  and  the  last  line 

RETURN. 


DEFINE  name  .  .  .< 
SAVE 

♦    ♦  ♦ 

RETURN) 


Three  assembly  directives  offer  options  in  listing  a  program  containing 
macros:  xall,  sall,  and  lall.  The  default  directive  is  xall.  When 
listing  a  program  that  contains  a  macro,  the  line  calling  the  macro  is 
followed  by  a  circumflex  O,  the  macro  code,  and  another  circumflex,  xall 
lists  only  those  lines  that  generate  code,  sall  lists  only  the  title  of  the 
macro,  with  no  code,  lall  lists  all  information  within  the  macro.  To 
change  from  xall  to  sall  or  lall,  simply  include  one  of  these  directives 
(sall  or  lall)  in  the  beginning  of  a  program. 
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9.2  Created  Symbols  and  Default  Values 


Since  the  system  expands  macros  at  every  place  they  are  called,  a  problem 
arises  if  a  macro  contains  a  standard  label:  with  expansion  of  the  macro, 
the  label  references  a  different  location!  However,  label  locations  must  be 
unique  (used  only  once).  To  handle  this  problem,  the  assembler  can  create 
symbols.  A  percent  sign  before  a  formal  parameter  in  the  dummy  argu- 
ment list  will  be  the  clue  to  the  assembler  to  create  a  symbol.  When  a 
macro  is  called  and  a  value  is  not  passed  to  a  created  symbol,  the  assem- 
bler will  assign  a  value  to  the  symbol.  The  value  it  assigns  will  be  different 
for  each  call. 


DEFINE  L ABEL  (  A  .  ZBK 
JRST  XB 
ZB:        MOVEI    1 >  A> 


LABEL ( 3 ) 
LABEL ( 4 ) 
LABEL ( 5  .HERE ) 


Expanding  this  example  yields  the  following. 


LABEL ( 3 ) * 

JRST  ..OOOl 
.  .0001 :  MOVE  I  1.3' 

LABEL ( 4 ) * 

JRST  ..0002 
. .0002:  M00EI  1.4' 

L ABEL ( 5  .HERE) * 

JRST  HERE 
HERE:  M00EI  1.5' 


Created  symbols  begin  with  dots.  As  discussed  earlier,  all  your  labels 
should  begin  with  a  letter  to  avoid  confusion. 

Macro  parameters  can  have  default  values  other  than  null.  For  instance, 
expansion  of  a  macro  invoked  with  a  simple  label  would  be  as  follows. 


LABEL* 
. . 0003 : 


JRST  ..0003 
MOVEI    1  .  0* 
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To  choose  a  default  value  other  than  null,  you  must  place  the  default  value, 
enclosed  in  angle  brackets,  next  to  the  formal  parameter  in  the  darglist. 


ZB  : 


DEFINE  LABEL ( A<2> »ZB X 
JRST  ZB 
MOVE  I    1  ,  A> 


A  macro  referenced  as 


LABEL 


would  expand  as  follows. 


LABEL 


0001 


JRST  ..0001 
MOVEI  1.2" 


With  more  than  one  formal  parameter,  the  interpretation  of  default  becomes 
hazy.  Consider  the  following  example. 

DEFINE  LABEL2    ( A< 2 >  ,  B< 3 > tXC )< 
JRST  ZC 


Used  by  itself,  LABEL2  makes  it  clear  that  all  parameters  are  missing,  so 
the  program  can  use  their  default  values. 

LABEL2 * 

JRST. .0001 

.  .0001   MOVE  2  .3' 

LABEL2(5)  would  indicate  that  a  value  is  passed  to  the  first  parameter,  the 
other  two  parameters  are  missing,  and  their  default  values  are  used. 
Below  is  the  expansion. 

LABEL2 ( 5 ) * 


ZC  : 


MOVE  A  » B  > 


JRST 


.  .0002 
MOVE  5  .  3 


0002 
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If  we  were  to  use  the  expression  LABEL2  (  ,4),  the  expansion  would  be  as 
follows. 

LABEL2 (  ,a)- 

JRST  ..0003 
..0003     MOUE  ifl* 

The  first  parameter  does  not  assume  its  default  value  because  the  system 
does  not  treat  it  as  missing.  The  last  call  is  the  same  as  label2(0,4).  Only 
parameters  that  are  truly  missing,  rather  than  just  skipped  over,  have 
default  values.  We  place  created  symbols  (for  example,  %c)  last  in  the 
dummy  argument  list  for  this  reason. 

9.3  Parameter  Passing  and  Special  Pseudo-Ops 

Parentheses  are  not  really  necessary  when  calling  a  macro.  For  example, 
you  can  invoke  the  macro  print  either  with  print(HELLO)  or  with  print 
hello. 

DEFINE     PRINT    (mess)  < 

HRROI    1  ,    [ASCIZ/   mess/ ] 
PSQUTZ> 

To  pass  parentheses  to  a  macro,  simply  repeat  the  parentheses. 
PRINT  ((HELLO)) 

results  in  the  message 

( HELLO ) 

The  use  of  parentheses  in  calling  a  macro  is  subject  to  a  number  of  rules 
and  exceptions  to  the  rules.  Thus,  the  simplest  approach  is  to  use  paren- 
theses only  to  pass  parentheses  (as  above),  spaces,  or  crlf. 

In  the  macros  we  have  discussed  so  far,  we  have  treated  the  parameters 
individually.  For  instance,  we  could  use  the  following  to  accept  a  number. 

DEFINE  NUMIN(UAR  t  B ASE< 12>)< 
MOYEI    1  ,    . PRI  IN 
MOVEI   3.  BASE 
NINZ 

HALTFZ 
MOVEM  2.  VAR> 
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And  we  would  call  this  macro  with  numin  a#.  To  accept  two  numbers, 
we  would  have  to  use  numin  a#  and  numin  b#. 

In  a  high-level  language,  an  input  or  read  is  not  restricted  by  the 
number  of  variables  to  be  accepted,  basic  uses  input  a  or  input  a,b 
which  would  call  the  input  function  as  many  times  as  the  variables  follow- 
ing input.  A  pseudo-op  called  irp  (indefinite  number  of  Repeats)  allows 
a  macro  to  perform  a  similar  operation.  It  takes  this  form. 

IRP  parameter i  <code> 

You  can  use  irps  only  within  macros.  You  must  also  group  together  all 
parameters  that  will  use  "<code>"  and  pass  them  to  the  macro  as  a  single 
parameter,  irp  will  then  repeat  the  "<code>"  for  each  parameter  in  the 
group.  An  example  will  help. 

DEFINE     ADDEM   (A)  < 
MOVE  I    1  i  0 
IRP  A  i   <   ADD   1  ,  A>> 

This  macro  adds  a  group  of  variables.  To  call  this  macro  with  more  than 
one  parameter,  you  must  group  the  parameters  within  angle  brackets. 

ADDEM  <3,4,5> 

The  angle  brackets  indicate  that  just  one  parameter  is  being  passed  to 
addem.  irp  repeats  the  "<code>"  for  each  variable  separated  by  commas 
in  that  one  parameter.  The  call  to  the  macro,  not  irp,  removes  the  angle 
brackets,  addem  expands  as  follows. 

ADDEM<3  tQ,5>~ 

MOUEI    1  .  0 
ADD   1  .  3 
ADD   1 >  a 
ADD  1.5* 

Grouping  parameters  brings  out  an  interesting  aspect  of  macro  calling. 
Consider  the  following  macro. 

DEFINE  READ ( A  >  BASE<12>)< 
MOVEI    1  ,    . PR  1 1 N 
MOVEI   3,  BASE 
NINZ 

HALTFX 
MOVEM  2,  A> 
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Using  this  macro,  which  has  two  parameters,  and  the  previous  print 
macro,  we  can  define  a  new  macro. 

DEFINE     RE ADEM (mess  »  var)< 
PRINT  mess 

I RP  uan  <  READ  va  r>  > 
We  can  invoke  readem  with 
READEM  type   in   two  numbers  i  <a*tb*> 

This  statement  would  print  a  message  and  then  assign  the  input  values 
to  a#  and  b#,  evaluating  the  numbers  in  decimal  because  of  the  default 
parameter  base.  How  can  we  change  base  in  the  read  macro?  In  other 
words,  how  does  IRP  handle  two  (or  more)  parameters?  One  reasonable 
but  incorrect  guess  would  be  to  call  readem  with 

READEM  type   in   two  numberst  < < a* »5 > »< b* »G > > 

The  attempt  is  to  read  a#  in  base  5  and  6#  in  base  6.  However,  this 
method  passes  <a#,5>,<6#,6>  to  irp,  which  in  turn  passes  <a#,5>  to 
read.  Now  the  angle  brackets  indicate  that  read  has  only  one  parameter, 
and  it  will  try  to  do  a  movem,  which  does  not  make  sense. 

MOVEM  2,   a* .5 

Remember  that  irp  does  not  remove  brackets;  only  calls  to  macros  will 
remove  brackets.  So  we  must  write  a  macro  that  will  remove  the  brackets. 

DEFINE     REMOVE ( s  t  uf  f ) <  stuff> 

remove  will  not  change  its  argument,  but  it  will  remove  brackets  because 
a  call  to  a  macro  removes  one  set  of  brackets  (if  they  are  present).  With 
this  fact  in  mind,  we  can  rewrite  the  irp  line  in  read  as 

IRP  uar»   <read    (REMOVE  Uar))> 

This  line  assumes  that  the  system  will  call  remove  and  then  read.  Not 
true!  Instead,  read  thinks  it  has  a  parameter,  namely  "REMOVE(var)," 
which  it  will  expand  as 
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MOVEM  2 .   REMOUEKa* >5>) 


which  expands  as 
MOVEM  2,   a*  ,5 

If  a  macro  is  the  argument  of  another  macro,  the  calling  moves  from  left 
to  right  and  not  from  the  innermost  nest  outward.  The  correct  interme- 
diate macro,  then,  is 

DEFINE     COMB    (mac»   stuff)    <mac  stuff) 

COMB  removes  a  coMma  and  a  set  of  Brackets.  The  irp  line  of  readem  is 
replaced  with 

IRP   van   <   COMB    (    READ  »  uar)> 

Now  when  irp  receives  <a#,5>,  the  steps  are 

COMB(    READ  »  <a*»5>) 

yielding 

READ  a*»5 

With  comb,  calls  to  readem  would  be 

READEM   type    in   two   numbers  i  <a*tb*> 
or 

READEM  type   in   two  numbers  >  < < a* >5 > »< b» »6 > > 

A  better  use  of  the  above  macro  concept  would  be  to  treat  the  numbers 
5  and  6  as  file  channels  rather  than  as  bases  (see  Chapter  10).  readem 
would  then  be  a  macro  that  could  read  variables  from  different  files.  Nei- 
ther FORTRAN  nor  basic  has  a  statement  allowing  multidevice  reads.  We 
will  see  more  of  this  concept  in  the  next  chapter. 

The  last  special  pseudo-op  we  will  consider  is  concatenation.  Concaten- 
ation allows  us  to  pass  variable  prefixes,  roots,  and/or  suffixes  to  macros. 
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The  example  below  has  a  variable  suffix.  The  program  will  pass  a  suffix, 
the  letter  E,  to  jump,  yielding  jumpe.  To  signify  suffix  concatenation,  an 
apostrophe  appears  before  a  formal  parameter  within  the  body  of  the 
macro  (not  in  the  darglist).  The  program  below  searches  a  data  bank  for 
all  occurrences  of  value. 


TITLE  EXAMPLE  31 
SEARCH  MONSYM 
DATA:  EXP  3  ,4  ,i  ,3  ,2  ,5 

NUM  =  6 
VALUE=3 


Jconcatenation 


i  G  pieces   of  data 
iualue   to   be  compared 


DEFINE  COM PAR( this  .that  .  re  1  .XLABEL  .%DONE>< 
MOVE  a,  that 
SUB     a,  this 

JUMP'rel   a>  XLABEL  i c o n c a t e n a t i n s 

JRST  XDONE 
XLABEL:        MOVEI    1.  .PRIIN 
MOVEI   3.  12 
MOVE  2  .  that 
NOUTX 
HALTFX 

HRROI    1,    [  15BS+12B13]  icrlf 
PS0UT2 
ZDONE :  > 


START:  MOMNI   5»  NUM 

MOVEI    10»  VALUE  icowpare  this 

AGAIN:  MOVE  6»   DATA+NUM ( 5 ) 

COMPAR    (10.   6»E)  Jshow   all  VALUEs 

AOJL  5  .  AGAIN 

HALTFX 

END  START 


To  find  all  the  numbers  greater  than  or  equal  to  value,  you  can  call 
COMPAR(io,6,GE).  Concatenation  makes  it  unnecessary  to  write  separate 
programs  to  examine  different  aspects  of  the  same  data.  An  apostrophe 
after  the  formal  parameter  in  the  body  of  the  macro  allows  for  a  prefix 
variable.  Apostrophes  before  and  after  the  formal  parameter  in  the  body 
of  the  macro  will  pass  a  root. 
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9.4  Universals — External  Macros 


This  section  explains  how  to  make  macros  available  to  more  than  one 
program.  To  call  "external"  macros,  the  macros  must  be  in  a  universal 
file  and  not  in  another  program.  You  must  write  a  universal  file  in  the 
editor;  an  example  is  mystuf.mac.  mystuf  is  a  collection  of  commonly 
used  macros.  To  signify  that  a  file  is  universal,  use  the  keyword  univer- 
sal instead  of  title.  As  in  other  files,  universals  must  end  with  end, 
with  no  label  following  end.  After  editing  the  file,  the  system  must  com- 
pile it.  To  compile,  write  the  following  at  TOPS-20. 

@COMP  MYSTUF . MAC 

The  compiler  creates  a  file  mystueunv  (note  the  extension),  which  makes 
the  universal  file  available  to  other  programs.  Every  time  you  edit  a 
universal,  you  must  remember  to  compile  the  new  version.  To  use  a  macro 
that  is  in  mystuf,  a  program  must  include  the  directive  search  mystuf. 
You  could  also  write  it  as  search  monsym,  mystuf.  If  the  assembler 
cannot  find  a  symbol  in  its  local  table,  it  will  search  universal  files  in  the 
order  in  which  they  appear  after  the  directive  search.  When  executing 
a  program,  you  need  not  link  universal  files.  For  example,  if  a  program 
prog. mac  includes  the  line  search  mystuf,  the  following  simple  line  will 
execute  it. 

@EX   PROG. MAC 

The  following  fine  will  not  work. 
@EX   PROG. MAC (MYSTUF. UNV 

If  you  recompile  a  universal  file  (add  something  new),  you  also  need  to 
recompile  any  program  that  used  the  universal. 

@EX   PROG . MAC/COMP 

Universal  files  should  use  macros  like  print,  input,  read,  and  so  on. 
Some  macros  are  also  available  in  a  system  universal  file  titled  macsym. 
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9.5  Summary 


Proper  utilization  of  macros  can  save  a  programmer  much  time.  The  cus- 
tomization permitted  with  macros  allows  the  programmer  to  design  his/ 
her  own  software  language.  Once  the  macros  are  written  for  their  purpose 
of  multiple  usage,  the  programmer  is  then  free  to  concentrate  more  on 
the  essence  of  an  algorithm  rather  than  on  the  lower  level  details  of  the 
hardware.  Not  all  assembly  languages  have  macro  capabilities;  without 
macros  usage  of  system  facilities  becomes  very  difficult,  however. 

In  the  next  chapter  we  will  demonstrate  how  macro  can  be  used  to 
communicate  with  secondary  storage  units  via  files. 


9.6  Exercises 


1.    Using  macros,  design  a  "language"  with  the  following  tokens:  print, 
show,  get,  and  if.  The  syntax  of  the  language  is: 


PRINT  mess 
SHOW  uar 
GET  uar 

ADD   a  n  s  »    u  a  r  1  »   u  a  r  2 

IF  uart   less  i   est  Jreat 


mess    is   an   ASCII  strinS 
uar   is   a  numerical  variable 
accepts   a  number   from   the  tty 
and   places   it   in  uar 

adds   number   u  a  r  1    to   u  a  r  2 
placins  their  sum   in  ans 
an   arithmetic  Jump 

Jump  to   less   if   uar  <0 
Jump  to   es   if  var=0 
Jump  to   sreat   if   uar  >0 


Write  a  program  that  will  accept  (get)  two  numbers,  add  them,  and 
print  (show)  the  phases  neg,  zero,  or  plus  based  on  the  value  of 
the  sum  of  the  numbers. 
2.  Write  a  macro  that  simulates  the  mid$  function  in  basic.  (In  other 
words,  pass  to  the  macro  mid$  a  pointer  and  two  numbers.  The  pointer 
points  to  a  string,  the  first  number  is  the  beginning  position  of  the 
partial  string,  and  the  second  number  is  the  length  of  the  partial 
string. 


Example:        P   >  THE  MOON   IS  BLUE 

MID*(P»a.3)    =  MOO 
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3.  Write  a  macro  that  will  accept  a  string  pointer  and  return  the  number 
of  characters  in  the  string  being  pointed  to. 

4.  Write  a  macro  SQUAREdn,  out).  This  macro  places  the  square  of  the 
parameter  "in"  into  the  parameter  "out."  Place  this  macro  in  a  uni- 
versal file.  Write  a  program  that  invokes  this  macro. 

5.  Write  a  macro  that  accepts  a  string  pointer  and  a  character.  The  macro 
will  return  the  numerical  position  where  the  character  occurs  in  the 
string.  If  the  character  is  not  in  the  string,  return  a  0. 
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CHAPTER 

10 


Files 


A  file  is  a  data  structure.  Unlike  an  array,  it  does  not  have  a  declared 
length;  theoretically,  it  can  be  of  infinite  length.  Files  that  are  executable 
are  called  programs.  Other  files  that  simply  contain  data  are  called  data 
files.  Data  files  allow  data  to  be  independent  of  programs.  More  interest- 
ingly, files  make  data  available  to  many  programs.  To  use  a  file,  a  program 
must  establish  a  connection  with  it  through  a  Job  File  Number,  jfn.  The 
program  must  also  establish  the  direction(s)  of  the  flow  of  data  (to  the 
program  and/or  from  the  program).  A  high-level  language  would  establish 
the  flow  of  data  with  one  of  the  following  statements. 

RESET (  f  i  1  e  u  a  r  »  filename) 

or 

OPEN  filename  AS  channel »  mode 

In  the  first  example,  reset  implies  that  the  flow  of  data  is  from  the  file 
to  the  program.  The  computer  assigns  the  jfn  "filevar"  to  the  previously 
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established  file  referenced  in  "filename."  In  the  second  example,  open 
implies  that  a  file  is  to  be  referenced.  It  designates  the  file  by  "filename." 
The  user  picks  the  jfn  by  the  integer  value  of  the  variable  "channel."  The 
value  of  "mode"  determines  the  flow  of  data.  Once  the  file  is  established, 
the  jfn  becomes  its  reference.  For  instance,  read  or  write  plus  a  jfn 
will  perform  i/o. 

READ ( f  i 1 e  v  a  r  »  variables) 

or 

WRITE  «channeli  variables 

Assembly  language  uses  similar  operations.  The  monitor  call  gtjfn%  (GeT 
a  Job  File  Number)  establishes  the  link  between  the  program  and  the  file. 
Another  monitor  call,  openf%,  (open  the  File)  links  a  file  to  a  program. 
Once  a  file  is  open,  all  references  to  it  use  the  jfn. 

10.1  Files  in  Assembly 

The  decsystem-20  establishes  a  job  file  number  using  either  a  long  form 
or  a  short  form.  We  will  discuss  only  the  short  form  here  since  it  is  suf- 
ficient for  most  users.  gtjfn%  uses  two  accumulators,  and  it  returns  + 1, 
+  2.  Before  assigning  the  jfn  you  must  specify  a  number  of  possibilities 
using  flags.  These  flags,  which  define  a  file  as  a  new  file,  an  old  file,  and 
so  on,  go  in  accumulator  1.  Table  10-1  lists  the  flags  that  we  will  deal  with 
in  this  chapter. 


TABLE  10-1.    Some  gtjfn%  Flags 


Symbol 

Bit 

Meaning 

GJ%SHT 

17 

Short  form. 

This  flag  must  be  set. 

GJ%NEW 

2 

Create  a  file;  if  the  file  exists, 
the  GTJFN%  will  return  +  1. 

GJ%OLD 

3 

The  file  must  exist. 

GJ%FOU 

0 

Updating  a  file  (new 
generation); 
if  the  file  does  not  exist, 
the  program  will  create  it. 

gj%fns 

16 

The  terminal  supplies  the 
name  of  the  file. 
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Below  is  a  typical  flag  setup. 
MOVE   1»  [GJXSHT+GJXOLD] 

Ac  2  references  the  name  of  the  file.  You  may  refer  to  the  file  name  in  two 
ways:  If  the  terminal  is  to  supply  the  file  name  at  run  time,  then  you  set 
up  accumulator  2  as  follows. 

MOVE  2  i    [  .  PR  1 1 N  »  » . PR  I OU ] 

You  must  set  the  flag  gj%fns  when  using  the  terminal  to  supply  the  file 
name.  (This  flag  can  reference  other  jfns  as  well,  though  we  will  not 
discuss  this  use  here.)  The  second  way  to  supply  the  file  name  is  to  pack 
the  name  in  the  program  and  reference  it  using  a  byte  pointer.  This  method, 
illustrated  below,  does  not  use  the  gj%fns  flag. 

PTR:    POINT  7.  NAME 

t    *  • 

NAME:    ASCIZ/f i lename/ 

•    »  • 

MOVE  2,  PTR 

The  string  between  the  slashes  must  be  an  exact  match — that  is,  use  no 
extra  spaces.  Once  the  accumulators  are  set  up,  you  can  execute  gtjfn%. 
Don't  forget  the  +1,  +2  return.  If  the  gtjfn%  is  successful,  it  will  place 
the  value  of  the  J  FN  in  accumulator  1.  You  will  then  need  to  move  the  jfn 
since  you  will  need  ac  1  for  further  use. 

Having  established  a  jfn,  you  must  fix  a  direction  to  it  using  the  monitor 
call  openf%.  openf%  also  uses  two  accumulators;  place  the  jfn  of  the 
file  to  be  opened  in  accumulator  1  and  designate  the  direction(s)  of  the 
data  flow  by  flags  in  accumulator  2.  (See  Table  10-2.) 


TABLE  10-2.    Some  openf%  Flags 


Symbol 

Meaning 

OF%RD 

Read  the  file. 

OF%WR 

Write  to  the  file. 

OF%APP 

Append  the  file. 
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You  must  place  the  byte  size  of  the  data  in  bit  5  of  ac  2.  To  read  an  ASCII 
file,  you  should  use  this  command. 


MOUE  2  i    [0F7.RD  +  7B51 


After  you  have  set  up  both  accumulators,  you  can  execute  the  monitor 
call  openf%,  which  returns  +1,  +2. 

Once  a  file  is  open,  you  can  transfer  data  using  monitor  calls  (similar  to 
pbin%  and  pbout%)  that  exchange  a  data  byte  between  a  file  and  a  pro- 
gram. The  simplest  calls  are  bin%  and  BOUT%.  These  calls  use  two  accu- 
mulators: a  jfn  in  ac  1,  and  the  data  byte  to  be  transferred  in  ac  2. 

Once  a  program  has  used  a  file,  you  need  to  disconnect  the  file  from  the 
program.  The  monitor  call  closf%  (CLOSe  the  File)  places  the  jfn  in 
accumulator  1  and  then  returns  +1,  +2.  (We  need  not  discuss  the  flags 
available  for  closf%  here.) 

In  dealing  with  files,  good  programming  practice  is  to  begin  all  pro- 
grams with  the  monitor  call  reset%.  This  call  closes  any  existing  open 
files  and  also  initializes  the  program's  address  space.  Below  is  a  program 
that  will  create  a  file,  getting  data  for  the  file  from  the  terminal. 

TITLE  EXAMPLE  32  icreatins   a  file 

SEARCH  MONSYM 

JFN:  Z  isaue   JFN  here 

AMT=5  55   pieces   of  data 

START:  RESET* 

MOVEI   a,  AMT  iset   up  a  counter 

HRROI    1»    [ASCIZ/   new   file   name  /] 

PSOUTX 

MOVE    1.    [GJ%SHT+GJXF0U+GJ%FNS1         iset   up  GTJFNZ 
MOVE   2  »    [ . PR  1 1 N  »  » . PR  I OU 1 
GTJFNX 
HALTFX 

MOUEM   1 .   JFN  Ssave  JFN 

iset   up  OPENFZ 

MOUE   1  ,  JFN 

MOVE  2  .  [0F/WR+7B5]  iwritins   in  ASCII 

□ PENFX 
HALTFZ 

HRROI    1»    CASCIZ/    type    in   5   chars  /] 
PSOUTZ 

HRROI    li    C12BG+15B131  icrlf 
PSOUTX 
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LOOP: 


MOVE  2,  1 

MOVE   1  ,  JFN 
BOUTZ 

SOJG  a ,  LOOP 


PBINZ 


!  set   a  char 
5set   up  BOUT* 
?  put   char   in   ac  2 
iset  JFN 


iclose  file 


MOVE   1  ,  JFN 
CLOSFX 

HALTFZ 
HALTFZ 
END  START 

Execution  of  this  program  will  print  the  prompt  "new  file  name"  at  the 
terminal.  If  you  type  junk.dat,  the  system  will  create  a  file  with  that 
name.  Next,  the  prompt  "type  in  5  chars"  will  appear  at  the  terminal. 
You  can  then  press  any  five  keys,  as  illustrated  below. 

new   file   name  JUNK.DAT 

type   in  5  chars 

ABODE 

After  typing  the  fifth  key,  the  next  prompt  will  be  @  at  TOPS-20.  Since 
the  file  is  in  ASCII,  you  can  examine  the  file  with  the  tops-20  command 
type  junk.dat.  The  file  contents,  abcde,  will  then  appear  at  the  ter- 
minal. You  can  also  use  other  tops-20  commands — like  edit — on  the  file. 

The  next  example  is  a  program  that  reads  an  existing  file.  This  time 
the  name  of  the  file  is  in  the  program.  Placing  the  stringJUNK.DAT  in  the 
program  will  cause  the  terminal  to  display  five  characters  from  that  file. 
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TITLE  EXAMPLE  33  ireadinS   a  file 

SEARCH  MQNSYM 
AMT  =  5 
Z 

RESET* 

MOVEI   a,  AMT 

iset   up  GTJFNX 

MOUE   li  CGJISHT+GJXOLD] 
MOVE  2.    [POINT   7  .[ASCIZ/JunK.dat/]] 
GTJFNX 

HALTFZ 
MOVEM   1  ,  JFN 

iset   up  OPENFZ 

MOVE   1 »  JFN 
MOUE  2,  [0FXRD+7B51 
OPENFX 
HALTFX 

LOOP:  MOUE   1  ,  JFN 

BIN* 

MOVE   1  .2 
PBOim 

sojg  a  ,  LOOP 


MOVE  1  .  JFN 
CLOSFX 

HALTFZ 
HALTFZ 
END  START 


The  programs  above  transferred  ASCII.  To  transfer  numbers,  the  byte 
size  in  openf%  should  be  44  (decimal  36)  since  each  number  uses  a  full 
word.  nin%  will  read  the  numbers  into  the  program  from  the  terminal, 
and  bout%  will  transfer  them  to  a  file.  Similarly,  bin%  (byte  size  44)  will 
read  numbers  from  a  file,  and  nout%  will  transfer  them  to  the  terminal. 
A  file  created  with  a  byte  size  other  than  7  bits  will  not  be  readable  via 
the  tops-20  command  type. 


10.2  Macros  and  Byte  Files 

Several  macros  can  help  handle  files.  The  first  macro  we  will  discuss  uses 
the  gtjfn%  call.  This  call  can  designate  the  file  name  with  flags  or  by 
returning  a  jfn.  Because  the  number  of  flags  can  vary,  an  irp  is  necessary. 
The  assembly  directives  ifidn  and  ifdif  are  used  to  designate  the  file. 


JFN: 
START: 


i  g  e  t  a  char 
ishow  char 

iclose  file 
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These  directives  compare  strings:  IF  the  strings  are  iDeNtical,  the  assem- 
bler uses  the  code  following  ifidn;  if  they  are  DlFferent,  it  uses  ifdif. 
These  directives  take  the  following  forms: 


IFIDN  < s t r in  si  X s t rin SZ>  i  <code> 
IFDIF  < s t r in  si  X s t r in SZ> >  <code> 


Generally,  one  string  is  fixed  and  the  other  is  a  parameter  of  a  macro. 
Since  all  flags  begin  with  GJ%,  suffix  concatenation  will  pass  the  rest  of 
the  flag. 

define  getjfn< jfn ,flag »I0<TTY>)< 

IFIDN  <  IOXTTY>  »<HRROI    li    CASCIZ/file  name/] 

PSOUTZ 

MOVE  2,    C  .  PR  I  I  N  »  »  .  PR  I  OU  ] 
SETZ   1  p 

IOR   li    [GJZFNS+GJZSHT] > 
IFDIF  <  IOXTTY>  .<M0VE  Z,    [POINT  7  t  [  ASC  IZ/IO/]] 
SETZ   1  . 

IOR   I  i    [GJZSHT] > 
IRP  FLAG.   <I0R   li    CGJX 'FLAG] > 
GTJFNZ 

ERJMP   [PRINT   set  JFN  error 
HALTFZ ] 
MOVEM   1  .  JFN> 


The  following  are  examples  of  calls  to  getjfn. 
GET JFN ( v  a  r told) 


GETJFN(var»new  iJunK.dat) 

The  first  example  indicates  that  "var"  contains  the  jfn,  that  the  file  exists, 
and  that  the  terminal  supplies  the  name  of  the  file.  The  second  example 
shows  that  "var"  contains  the  jfn,  that  the  file  will  be  created,  and  that 
the  file  name  is  "junk.dat."  Below  is  a  macro  for  openf%. 

DEFINE  FOPEN( JFN  .FLAG »W0RD<7>)< 
MOVE   1 »  JFN 
MOVE  2  .  [<W0RD>B5] 
IRP  FLAG  »< IOR  2  » [ OFX ' FLAG ] > 
OPENFZ 

ERJMP   [PRINT  OPENFZ  error 
HALTFZ ] 

> 
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The  examples  below  are  calls  to  fopen. 

FOPEN( var , rd ) 

FOPEN( var  »<  rd  »wr>  ,44) 

In  the  first  example,  "var"  contains  the  jfn,  the  file  is  open  for  reading, 
and  the  byte  size  is  7  bits.  In  the  second  example,  "var"  contains  the  jfn, 
the  file  is  open  for  reading  and  writing,  and  the  byte  size  is  a  full  word. 

You  can  use  the  above  macros  to  construct  larger  macros.  For  instance, 
the  following  example  establishes  a  reading  link  to  a  file  that  already 
exists. 

DEFINE  REREAD ( war  »fi lename )< 

GETJFN(var  >  o  1  d  »filename) 
FOPEN  (var ,rd)  > 

The  file  name  is  "filename"  and  the  jfn  "var"  handles  all  references  to 
the  file.  Here  is  a  macro  for  writing  to  a  file. 

DEFINE  REWR I T  <  var  tfi  lename  )< 

GETJFN(var  »fou  >filename) 
FOPEN( var  .wr)> 

The  "fou"  flag  will  create  a  new  generation  and  instruct  the  system  to 
ignore  any  previous  versions.  Below  is  a  simple  macro  to  close  a  file. 

DEFINE  CLOSE(var>< 
MOVE  1 »  var 
CLOSFZ 
PR  I  NT  closins  error 

> 

Let's  repeat  the  examples  above,  creating  and  reading  a  file,  using  macros. 
The  macros  are  in  a  universal  file  mystuf.  The  examples  above  used  a 
specific  number  of  characters  (five).  In  general,  however,  because  you  will 
not  know  the  number  of  bytes  in  a  file,  an  end-of-file  marker  is  available. 
This  marker  is  similar  to  a  null:  Not  all  nulls  are  end-of-file  markers,  but 
all  end-of-file  markers  are  nulls.  The  monitor  call  gtsts%  (GeT  file  STatus) 
will  signify  if  a  null  is  a  null  or  an  end-of-file  marker.  gtsts%  uses  two 
accumulators:  accumulator  1  contains  the  jfn  of  the  file  to  be  checked; 
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upon  completion  of  gtsts%,  accumulator  2  contains  the  status  of  the  file. 
gtsts%  always  returns  +1.  You  can  use  several  flags  with  gtsts%,  but 
we  will  use  only  bit  8,  gs%eof,  the  end-of-file  bit.  Setting  bit  8  indicates 
the  end  of  the  file.  The  following  example  creates  a  file  and  places  in  it 
five  characters  from  the  terminal;  it  then  closes  the  file,  reopens  it,  and 
reads  it.  The  example  uses  gtsts%  to  signify  the  end  of  the  file  rather 
than  to  count  characters. 


TITLE  EXAMPLE  34 
SEARCH  MONSYM  .MYSTUF 
AMT  =  5 

START:  RESET* 

MOVEI   5.  AMT 

REWR I T ( JFN* >  JUNK . DAT ) 

PRINT   type    in   5  chars 

LOOP:  PBINZ 

MOVE  2.1 
MOVE   1  .  JFN 
BOUTX 

SOJG  5.  LOOP 
CLOSE ( JFN ) 
CRLF 

REREAD( JFN  » JUNK . DAT ) 
AGAIN:  MOVE   1  »  JFN 

BIN* 
SKIPN  2 

JSR  CHECK 
MOVE   1  ,2 
PBOUTZ 
CRLF 

JRST  AGAIN 


i  u  s i n  s  reread  and  rewrit 
5  read   in  5  chars 


icreate   the  file 


iset   a  char 
iset   up  BOUT* 

iwrite   the   char  to   the  file 

i mo  re  chars? 

iclose   the  file 

isend   a  crlf   to  terminal 

!  reopen   the  file 
iset   up  BIN*. 
!set   a  char 
ichar  a  null 
iyes  i   then  eof? 
iset  up  PBOUTX 

iplace  a  crlf  between  chars 
iKeep   readins  file 


CHECK 


GTSTSX 

TLNE  2,  (GSZEOF) 

JRST  EOF 
SET2  2  i 
JRST  @CHECK 


{subroutine    eof  i 
iac   1   must   contain  JFN 
iset   file  status 
ibit  8  set? 

i/es  i   Soto   eof  routine 
ino»    return   ac  2  to  null 
i  return 


EOF:  CLOSE(JFN) 

HALTFZ 
END  START 
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Because  a  program  is  an  ASCII  file,  we  could  open  a  program  file  and 
alter  it.  For  example,  we  could  edit  the  file  by  changing  all  E's  to  Vs.  First 
we  use  bin%  to  instruct  the  computer  to  read  each  character  in  the  file. 
However,  when  bin%  reads  an  E,  we  cannot  simply  bout%  an  I  to  the  file 
because  the  file  has  a  byte  pointer.  Each  bin%  increments  and  loads  a 
byte  from  the  file.  Therefore,  when  bin%  reads  the  E,  the  file  pointer 
passes  it,  meaning  that  bout%  will  simply  place  an  I  over  the  character 
following  E.  A  temporary  file  is  one  way  to  handle  this  problem.  To  open 
the  file,  we  bin%  a  character  from  the  first  file  to  the  program.  If  the 
character  is  not  an  E,  we  bout%  the  character  to  the  temporary  file.  If 
the  character  is  an  E,  we  bout%  an  I  to  the  temporary  file.  After  the 
system  has  completely  read  the  original  file,  we  must  close  both  files.  At 
TOPS-20,  we  rename  the  temporary  file  as  the  original  file.  This  approach 
is  typical  in  handling  sequential  access  files. 

Random  byte  access  uses  jsys,  rin%,  and  rout%  to  control  the  file 
pointer.  These  calls  use  three  accumulators:  accumulator  1  contains  the 
jfn,  accumulator  2  handles  byte  transfer,  and  accumulator  3  contains  the 
position  of  the  byte  being  referenced  within  the  file.  rin%  and  rout% 
return  + 1  and  only  work  with  disk  files  (not  with  tapes,  for  example).  To 
edit  a  file  with  rin%  and  rout%,  you  simply  increment  the  file  pointer, 
rin%  a  byte,  and  check  to  see  if  it  is  an  E.  If  the  byte  is  an  E,  then  you 
ROUT%  an  I.  The  I  will  then  replace  the  E  because  the  file  pointer  still 
points  to  the  E  position.  If  the  byte  is  not  an  E,  then  you  must  increment 
the  file  pointer  and  rin%  the  next  byte.  This  process  continues  to  the  end 
of  the  file.  To  use  this  approach,  you  must  open  a  file  for  reading  and 
writing.  The  following  macro,  update,  will  accomplish  this  task. 

DEFINE  UPDATE ( ua r »f i 1 ename )< 

GET JFN luar told  filename) 
FOPEN   (uar »< rd »wr>)  > 

The  example  below  programs  the  concepts  we  have  been  discussing. 


TITLE  EXAMPLE  35 


I  random  access  files 
Schanse   all   E's  to  I's 


OLDLET: 
NEWLET: 
START: 


JFN: 


SEARCH  MONSYM  t  MYSTUF 
Z 

"E" 


II  T  II 


RESET* 
MOUNI  3.1 
UPDATE( JFN  »TTY ) 


5set   file   pointer   to  -1 
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LOOP: 


FIX: 


MOVE   1 t  JFN 
ADD  I  3>1 
RINX 
SKIPN  2 

JSR  CHECK 
CAMN  2  .  OLDLET 

JSR  FIX 
MOVE   1  .2 
PBOUTX 
JRST  LOOP 
Z 

MOVE  2  .  NEWLET 

ROUTX 

JRST  @FIX 


iiic  rement   file  pointer 

set   a  byte 

is    it   a  null 

yes  i   then   check  eof 

is   byte   an  E? 

yes  i   then  chan  se  it 

ishow   byte   to  tty 
5keep  fetchins  bytes 
i  c  h  an  3  i  n  3  bytes 


CHECK 


EOF  : 


Z 

GTSTSX 

TLNE  2,  (GSXEOF) 

JRST  EOF 
SETZ  2, 
JRST  0CHECK 
HALTFZ 
END  START 


subroutine  eof 
set   file  status 
bit   8  set? 

yes t   Soto   eof  routine 
not    return   ac   2   to  null 
return 


10.3  Summary 

Executable  files  are  known  as  programs,  whereas  data  files  merely  con- 
tain data,  thereby  allowing  data  to  be  independent  of  programs.  From  an 
operating-system  point  of  view,  files  can  be  considered  as  fundamental 
units — either  program,  data,  or  device  (tty).  An  assembly  file  perspec- 
tive allows  for  operations  on  files  in  more  finely  tuned  detail  than  is  pos- 
sible in  high-level  languages.  Presently,  however,  there  is  a  trend  in  high- 
level  languages  (modula-2,  ada)  to  build  into  the  language  the  more 
precise  file  operations  that  are  available  in  assembly. 

In  the  next  chapter  we  will  see  how  assembly  deals  with  files  and  devices 
in  a  real-time  situation. 


10.4  Exercises 

1.  Using  the  system  editor,  create  a  file  and  place  three  numbers  in  it. 
Write  a  program  that  will  access  this  file  and  display  its  contents. 

2.  Write  a  program  that  will  append  three  numbers  to  an  existing  file. 
Write  the  program  to  supply  the  name  of  the  file  and  the  three  num- 
bers at  run  time. 
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3.  Using  the  system  editor,  create  two  files.  Write  a  program  that  will 
merge  the  files  into  a  new  file  (simply  place  one  after  the  other).  Use 
the  jsys  delf%  to  delete  the  other  two  files.  delf%  takes  a  jfn  in 
accumulator  1  and  returns  +1,  +2. 

4.  Using  the  system  editor,  create  two  files  containing  numbers  sorted 
in  ascending  order.  Write  a  program  that  will  merge  the  numbers  into 
one  sorted  file. 

Example:  filel    3  8  10 
file2   2  7  9 
file3   2  3  7  8  9  10 

5.  Write  a  simple  editor  program  with  a  substitute  command  to  replace 
one  character  with  another.  Determine  the  file  to  be  edited  at  run 
time. 
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CHAPTER 

11 


Interrupts 


In  a  number  of  situations,  you  may  want  to  allow  a  program  to  receive 
interruptions,  or  interrupts,  from  various  sources,  such  as  the  terminal 
or  other  parts  of  the  operating  system.  This  chapter  discusses  the  uses 
of  interrupts  and  how  you  can  set  up  procedures  for  a  program  to  inform 
the  operating  system  of  software  interrupts. 


11.1  An  Analogy 

To  understand  interrupts,  let  us  consider  the  analogy  of  how  a  teacher 
might  handle  interruptions  in  a  classroom  of  polite  students.  If  a  student 
raises  his/her  hand  while  the  teacher  is  lecturing,  the  teacher  has  several 
options.  He  or  she  can  stop  in  the  middle  of  a  thought  and  acknowledge 
the  student.  He  or  she  can  finish  a  point  of  discussion  and  then  pause  to 
recognize  the  student's  request.  Or  the  teacher  can  ignore  the  student 
and  continue  lecturing.  Generally,  a  teacher  will  handle  a  student  inter- 
rupt in  the  second  way — by  completing  a  thought  and  then  recognizing 
the  student.  This  approach  allows  the  teacher  a  natural  break  in  the  lec- 
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ture  and  easy  continuation  after  he  or  she  has  dealt  with  the  student's 
request.  (Of  course,  this  method  is  not  practical  if  the  student  is  trying 
to  tell  the  teacher  that  the  room  is  on  fire,  in  which  case  the  message 
justifies  interrupting  a  train  of  thought.) 

If  a  second  student  attempts  to  interrupt  while  the  teacher  is  respond- 
ing to  the  first  student,  the  situation  is  more  complicated.  The  teacher 
can  ignore  the  second  student,  finish  with  the  first  student,  and  then 
acknowledge  the  second  student.  Or,  at  an  appropriate  point,  the  teacher 
can  postpone  his  or  her  response  to  the  first  student,  deal  with  the  second 
student,  and  then  return  to  the  first  student.  The  teacher  will  take  the 
latter  approach  if  the  second  student  has  higher  priority  in  some  sense 
than  the  first  student. 

Let's  look  at  computer  interrupts  using  this  analogy.  Think  of  the  teacher 
as  your  program  and  the  students  as  peripheral  devices  (tty,  card  read- 
ers, and  so  on)  and/or  other  procedures.  Actually,  you  should  think  of  your 
program  as  a  blind  teacher  who  cannot  see  any  raised  hands!  You  should 
also  imagine  a  "big  brother,"  the  operating  system,  standing  in  the  corner 
of  the  classroom  watching  the  students  and  helping  the  teacher.  The  blind 
teacher  tells  big  brother  under  what  conditions  he/she  will  accept  inter- 
rupts. (Until  now,  none  of  your  programs  has  instructed  the  operating 
system  to  accept  interrupts.)  The  operating  system  must  control  your 
program  and  watch  for  interrupts  simultaneously.  It  accomplishes  this 
dual  function  by  checking  before  fetching  each  instruction  in  your  program 
to  see  if  anything  wishes  to  interrupt  your  program.  If  it  finds  no  inter- 
rupts, it  proceeds  to  fetch  and  execute  an  instruction.  It  will  continue  to 
check  for  interrupts  before  each  instruction.  If  an  interrupt  occurs,  the 
system  checks  whether  your  program  is  set  up  to  handle  the  interrupt 
requesting  service.  If  your  program  is  not  accepting  interrupts,  the  sys- 
tem must  decide  what  to  do.  The  system  will  always  acknowledge  certain 
interrupts,  such  as  a  reference  to  a  nonexisting  location,  or  an  illegal 
operation.  If  your  program  is  not  prepared  to  handle  these  interrupts 
(panic  interrupts),  its  continuation  would  cause  a  serious  error.  There- 
fore, the  system  takes  over,  generally  by  stopping  the  program  and 
reporting  an  error.  This  interrupt  is  not  analogous  to  a  student's  yelling 
"fire,"  however,  which  would  be  a  hardware  interrupt.  We  are  talking 
about  a  software  interrupt,  which  can  occur  only  after  completion  of  an 
instruction,  not  in  the  middle.  The  system  handles  the  "fire"-type  (hard- 
ware) interrupts  as  well  as  (software)  panic  interrupts  (such  as  a  bad 
address  reference)  and  (software)  nonpanic  interrupts  (such  as  end  of  a 
file). 
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If  you  allow  interrupts  to  occur,  you  must  know  how  to  handle  them. 
Interrupts  can  come  from  many  different  sources.  Reasons  for  interrupts 
include:  illegal  instruction,  end  of  file,  stack  overflow,  and  a  particular  key 
from  the  terminal.  Generally,  each  source  of  an  interrupt  demands  a  spe- 
cific procedure.  You  must  supply  these  procedures  in  your  program. 

In  some  cases,  polling  may  be  an  alternative  to  interrupts:  After  fin- 
ishing a  point,  the  blind  teacher  could  ask  each  student,  one  at  a  time,  if 
he  or  she  has  any  questions.  This  method  demands  much  more  time  to 
get  through  a  (boring)  lecture. 

11.2  Setting  up  Interrupts 

Each  source  of  an  interrupt  connects  to  your  program  via  a  channel  (see 
Table  11-1).  The  system  has  36  channels,  with  some  channels  preassigned 
to  a  specific  type  of  interrupt  (for  example,  end  of  file  is  assigned  to 
channel  10). 

Each  interrupt  that  occurs  on  a  channel  has  associated  with  it  a  pro- 
cedure referenced  by  your  program.  An  interrupt  channel  table  estab- 
lishes this  connection  by  setting  aside  36  consecutive  locations,  one  for 
each  channel.  All  36  words  must  have  data.  The  right  half  of  each  location 


TABLE  11-1.    Software  Interrupt  Channel  Assignments 


Channel 

Symbol 

Meaning 

0-5 

Assignable  by  user  program 

6 

.ICAOV 

Arithmetic  overflow 

7 

.ICFOV 

Arithmetic  floating  point 

overflow 

8 

Reserved  for  dec 

9 

.ICPOV 

Pushdown  list  overflow  (panic 

channel) 

10 

.ICEOF 

End-of-file  condition 

11 

.ICDAE 

Data  error  file  condition  (panic 

channel) 

12-14 

Reserved  for  DEC 

15 

.ICILI 

Illegal  instruction  (panic) 

16 

.ICIRD 

Illegal  memory  read  (panic) 

17 

.ICIWR 

Illegal  memory  write  (panic) 

18 

Reserved  for  DEC 

19 

.ICIFT 

Inferior  process  termination 

20 

.ICMSE 

System  resources  exhausted 

(panic  channel) 

21 

Reserved  for  DEC 

22 

.ICNXP 

Nonexistent  page  reference 

23-35 

Assignable  by  user  program 
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contains  the  starting  address  of  the  procedure  for  the  corresponding  inter- 
rupt channel.  The  words  corresponding  to  the  channels  that  your  program 
is  not  going  to  monitor  contain  a  0.  The  left  half  of  these  36  words  estab- 
lishes the  priority  of  an  interrupt  in  case  it  is  interrupted  by  another 
interrupt.  You  must  be  concerned  with  three  levels  of  priority:  1,  2,  and 
3,  with  1  the  highest  priority.  If  your  program  is  handling  a  priority  2 
interrupt  and  a  level  3  interrupt  occurs,  the  level  3  interrupt  must  wait 
until  completion  of  level  2.  If  a  level  1  occurs  while  your  program  is  serv- 
icing a  level  2,  the  system  will  interrupt  the  level  2  and  then  return  to  it 
when  the  level  1  is  completed.  If  two  interrupts  of  the  same  level  occur, 
the  system  will  service  them  on  a  "first  come,  first  served"  basis. 

An  interrupt  will  cause  the  system  to  save  the  present  contents  of  the 
program  counter  so  that  it  can  execute  a  "return"  (if  desired)  after  com- 
pletion of  the  interrupt.  The  program  must  set  aside  three  locations 
(words) — one  location  for  each  priority  level — for  the  PC  when  an  inter- 
rupt occurs.  The  priority  level  table  references  these  locations.  The  prior- 
ity table  also  shows  where  to  store  a  PC  during  an  interrupt.  Therefore, 
six  table  locations  deal  with  priority — the  three  table  locations  and  the 
three  locations  referenced  by  the  table. 

To  better  understand  how  the  channel  table  and  the  level  table  work 
with  interrupts,  let's  discuss  an  example.  Assume  that  the  CHaNnel  TABle 
starts  at  location  chntab  and  the  LEVel  TABle  starts  at  location  levtab. 
Assume  also  that  the  program  is  running  and  an  interrupt  occurs  on 
channel  10,  indicating,  for  example,  that  the  last  piece  of  data  has  been 
read  from  a  file.  The  operating  system  checks  whether  your  program  will 
handle  this  interrupt.  If  so,  it  retrieves  the  word  at  location  "chntab  + 
interrupt  channel."  The  left  half  of  this  word  indicates  that  the  priority 
level  for  this  interrupt  is  2.  The  system  then  saves  the  present  PC  in  the 
second  position  referenced  by  the  priority  level  table — the  location  pointed 
to  by  "levtab  +  priority  -  1."  It  places  the  right  half  of  "chntab  + 
interrupt  channel,"  the  starting  address  of  the  procedure  handling  the 
interrupt,  in  the  PC.  If  another  interrupt  occurs  while  servicing  this  inter- 
rupt, the  operating  system  retrieves  the  appropriate  word  from  the  chntab. 
If  the  left  half  of  this  word  has  a  higher  priority,  say  level  1,  than  the 
present  position  of  the  PC  (somewhere  within  the  level  2  interrupt  pro- 
cedure), the  system  saves  it  in  the  address  referenced  by  the  first  position 
in  the  priority  level  table.  It  places  the  right  half  of  the  chntab  word  in 
the  PC,  the  starting  address  of  this  level  1  procedure.  When  the  level  1 
interrupt  has  ended,  the  program  picks  up  in  the  middle  of  the  previous 
level  2  interrupt  by  placing  the  contents  pointed  to  by  the  first  position 
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of  the  priority  level  table,  location  @levtab,  in  the  PC.  When  this  process 
ends,  the  system  places  the  contents  of  the  second  position  in  the  priority 
level  table  into  the  PC,  and  the  program  continues  from  the  point  at  which 
the  level  2  interrupt  occurred. 

You  must  let  the  system  know  the  locations  of  the  interrupt  tables  by 
using  the  monitor  call  sir%  (software  inteRrupt).  This  call  uses  two  accu- 
mulators. The  DECSYSTEM-20  allows  more  than  one  process  (program)  to 
run  at  the  same  time.  You  must  identify  the  process,  or  fork,  that  will 
handle  interrupts  and  place  this  identification  in  ac  1.  For  now,  only  the 
present  program  will  handle  interrupts,  so  you  use  .fhslf  (Fork  Handle 
seLF).  SIR%  needs  the  location  of  the  priority  level  table  in  the  left  half  of 
ac  2  and  the  channel  table  address  in  the  right  half  of  ac  2.  It  returns  + 1. 

HOVE I    1»  .FHSLF 

MOVE  2,    CLEVTAB  »  »CHNTAB] 

SIRZ 

SlR%'s  job  is  to  inform  the  operating  system  where  the  interrupt  tables 
are  located.  The  next  step  is  to  enable  the  interrupt  system.  Using  our 
classroom  analogy,  consider  the  fact  that  interrupts  can  come  from  many 
directions  (students,  public  address  system,  and  so  on)  and  that  the  teacher 
may  not  wish  to  be  interrupted  by  anyone  or  anything  at  certain  points 
in  a  lecture.  (A  program  might  ignore  all  nonpanic  interrupts  in  order  to 
continue  accepting  data  from  a  device  about  to  shut  down.)  Or  at  times, 
the  teacher  will  ignore  only  the  public  address  system  but  acknowledge 
other  interruptions.  (A  program  might  temporarily  ignore  interrupts  from 
one  device,  such  as  the  keyboard,  but  accept  interrupts  from  other  devices.) 
Thus,  given  the  many  sources  of  interrupts,  it  is  nice  to  be  able  to  shut 
down  all  interrupts  or  only  certain  channels  with  relative  ease,  and  assem- 
bly JSYS  exist  for  this  purpose.  The  commands  eir%  and  dir%  (Enable 
inteRrupts,  Disable  inteRrupts)  govern  interrupts;  the  commands  Aic% 
and  Dic%  (Activate  interrupt  channel,  Deactivate  interrupt  channel)  gov- 
ern channels.  In  addition,  ati%  and  dti%  (Activate  Terminal  interrupt, 
Deactivate  Terminal  interrupt)  will  assign  the  terminal  to  an  interrupt 
channel  if  necessary. 

After  sir%,  you  may  need  an  eir%  and  an  aic%  and  possibly  an  ati% 
to  complete  an  interrupt  setup.  In  using  these  directives,  you  must  observe 
a  hierarchy:  SIR%,  eir%,  AlC%,  ati%.  In  other  words,  an  Aic%  will  not 
take  effect  until  execution  of  an  eir%.  An  ati%  will  not  take  effect  until 
execution  of  an  aic%.  The  eir%/dir%  use  one  accumulator,  ac  1,  which 
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must  contain  the  fork  to  be  enabled  or  disabled.  eir%  and  dir%  return 
+ 1.  Here  is  an  example  of  an  eir%. 

MOVEI    1 t    . FHSLF 
EIRX 

To  set  up  dic%  or  aic%,  you  need  two  accumulators:  ac  1  contains  the  fork 
and  ac  2  the  channel(s)  to  be  (de)activated.  The  following  lines  would 
disable  channels  6  and  9. 

MOVE  I    1  ,    . FHSLF 

MOVE  2,    [1BG+1B9]    or  MOVE  2,    C1B< . ICA0V>+1B< . ICPOV>] 
DICX 

Dic%  and  aic%  return  +1.  ati%,  which  allows  for  terminal  interrupts, 
uses  only  one  accumulator.  Your  program  places  the  ASCII  value  of  the 
key  that  will  cause  the  interrupt  in  the  left  half  of  ac  1  and  an  assignable 
channel  number  in  the  right  half.  Assignable  channel  numbers  are  0  to  5 
and  23  to  35.  Table  11-2  lists  the  codes  and  conditions  used  in  terminal 
interrupts. 

Don't  forget,  aic%  must  at  some  time  activate  the  channel  used  by  ati%. 
ati%  returns  + 1.  Below  is  an  example  assigning  a  control  A  to  channel 
0.  dti%  works  in  a  similar  manner. 

MOVE   1.    Clbl»»0]      or  MOVE   1,    [.TICCA, ,0] 
ATIX 

The  following  program  will  constantly  send  the  letter  A  to  the  tty. 
When  a  control  E  is  typed  the  program  will  then  be  interrupted,  print 
"got  interrupt,"  and  stop.  A  delay  loop  avoids  overburdening  the  ter- 
minal with  As.  This  program  also  uses  the  assembly  directive  repeat: 

REPEAT  number  of  times,  <code> 

This  directive  instructs  the  computer  to  repeat  the  value  between  the 
angle  brackets,  code,  a  specified  number  of  times. 
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TITLE  EXAMPLE  3B 


SEARCH  MONSYM 
CHNTAB :      2  i  >CNTE 

REPEAT  -D35.<0> 
LEUTAB:  0 

PC2 

0 

PC2:  Z 

COUNT :  "DIOOOOO 

START:  RESET* 

MOUEI    1  •    . FHSLF 

MOUE   2  i    [LEUTAB t >CHNTAB] 

SIR* 

MOUEI    1  .    . FHSLF 
EIRX 

MOUEI    1  i  .FHSLF 
MOUE  2f  [1BO] 
AIC2 


MOUE  1  » [5  ,  .0] 
ATI* 

BEGIN:  MOUE  2,  COUNT 
LOOP:  SOJG  2.  LOOP 

MOUEI    li  "A" 
PBOUTZ 
JRST  BEGIN 


CNTE:  HRROI    1»    CASCIZ/    Sot  int 

PSOUTX 
HALTFX 
END  START 


i  s  i  m  p  1  e  interrupt 
isends   the    letter  A 
5to   tty   until    a  control 
5E   is  typed 

ichannel  table 

ifill    rest   of   table  with  0 

i  n  o    level  1 

ipoint   to    level  2 

ino    level  3 

5save   PC  here 


iset   up  SIR* 


iset  up  EIRX 
iset   up  AIC% 


iset   up   a  terminal 
iinterrupt 

icontrol   E  channel  0 

iset   up  counter 
isimple   delay  loop 
isend   letter  A  to 
!  tty 


ihere   on   a   control  E 

rrupt/  ] 


For  the  program  above,  only  the  first  movei  i,  .fhslf  is  necessary. 


11.3  Interrupts  and  Macros 

Some  macros  are  available  to  help  you  set  up  interrupts.  Let's  design  a 
macro  for  interrupts  that  uses  four  formal  parameters:  a  procedure  address, 
a  priority  value,  a  channel,  and  an  optional  tty  key.  For  instance,  example 
36  used  a  procedure  address  of  CNTE,  established  a  priority  level  of  2, 
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TABLE  11-2.    Terminal  Codes  and  Conditions 


Character 


Code 

Symbol 

or  Condition 

0 

.TICBK 

Control  @ 

1 

.TICCA 

Control  A 

2 

.TICCB 

Control  B 

3 

.TICCC 

Control  C 

4 

.TICCD 

Control  D 

5 

.TICCE 

Control  E 

6 

.TICCF 

Control  F 

7 

.TICCG 

Control  G 

8 

.TICCH 

Control  H 

9 

.TICCI 

Control  I 

10 

.TICCJ 

Control  J 

11 

.TICCK 

Control  K 

12 

.TICCL 

Control  L 

13 

.TICCM 

Control  M 

14 

.TICCN 

Control  N 

15 

.TICCO 

Control  0 

16 

.TICCP 

Control  P 

17 

.TICCQ 

Control  Q 

18 

.TICCR 

Control  R 

19 

.TICCS 

Control  S 

20 

.TICCT 

Control  T 

21 

.TICCU 

Control  U 

22 

.TICCV 

Control  V 

23 

.TICCW 

Control  W 

24 

.TICCX 

Control  X 

25 

.TICCY 

Control  Y 

26 

.TICCZ 

Control  Z 

27 

.TICCEX 

ESC  key 

28 

.TICRB 

Delete  key 

29 

.TICSP 

Space 

30 

.TICRF 

Dataset  carrier  off 

31 

.TICTI 

Typein  (any  key) 

32 

.TICTO 

Typeout  (any  key) 

33-35 

Reserved 

used  the  channel  0,  and  used  a  key,  control  E.  Below  is  a  call  that  will  set 
up  an  interrupt. 

I NTER ( CNTE  ,2 tO  ,E) 

If  you  need  an  end-of-file  interrupt,  you  could  set  it  up  as  follows. 
INTER ( EOF  ,2  .10) 
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To  make  this  problem  manageable,  assume  that  chntab  and  levtab  are 
the  labels  for  the  interrupt  tables.  You,  as  the  user,  are  responsible  for 
setting  up  the  following  (although  more  relaxed  requirements  are  possible). 


CHNTAB : 
LEVTAB : 


BLOCK 
PC  1 
PC2 
PC3 
Z 

z 
z 


D36 


PCI 
PC2 
PC3 


The  macro  inter  contains  the  following  macros: 

•  fixchn  places  the  necessary  word  in  the  channel  table. 

•  seteir  enables  interrupts. 

•  setaic  activates  a  channel. 

•  setkey  performs  an  ATI%.  The  computer  will  call  this  macro  only  if  a  key 
parameter  is  present. 

(We  will  discuss  the  SIR%  part  of  this  macro  later.) 

fixchn  has  three  parameters:  the  procedure  address,  the  priority,  and 
a  channel. 

DEFINE  FIXCHN< PROC ,PRI ,CHAN)< 


Note  that  the  program  concatenates  the  using  channel  value  with  *D.  This 
value  indexes  into  the  correct  position  within  the  chntab  block. 
The  macros  seteir  and  setaic  are  straightforward. 


DEFINE  SETEIR(FORK< .FHSLF>)< 
MOVEI    1 <  FORK 
EIRX 

erJmp   [print  EIRZ  error]) 

DEFINE   SETAIC (CHAN  >FORK< .FHSLF>)< 
MOVEI    1 >  FORK 
MOVE   2,  CIB'CHAN] 
AICX 

erJmp   C   print  AICX  error  ]> 


Note  again  how  concatenation  connects  the  channel  value  to  the  assembly 
directive  B.  (Though  both  eir^  and  aic%  return  + 1,  an  erjmp  will  exe- 


MOVE   1  .    CPRI  .  .PROC] 
MOVEI   2.    * D  '  CHAN 
MOVEM   1 .   CHNTAB ( 2 ) 

> 
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cute  only  in  the  event  of  an  error.)  The  setkey  macro  uses  concatenation, 
both  in  suffix  and  root  mode.  An  apostrophe  on  both  sides  of  the  variable 
"key"  places  the  key  in  quotes,  which  instructs  the  assembler  to  transform 
it  to  its  ASCII  value.  Subtracting  octal  100  from  the  ASCII  value  converts 
the  key  into  a  control  key  value.  (In  other  words,  subtracting  octal  100 
from  the  octal  value  of  A,  or  101,  yields  1,  which  is  an  ascii  control  A.) 

DEFINE  SETKEY(KEY  .CHAN )< 

HRLZI    1  .    "  'KEY  '  "-100 
HRRI    1  .    "  D  'CHAN 
ATI* 

erJmp   [print  ATI'/,  error  ]> 

We  can  now  define  inter.  Note  that  a  default  value  is  assigned  to  the  key 
parameter.  The  program  calls  setkey  only  if  the  parameter  key  is  not 
the  default  value.  Calling  setkey  is  accomplished  by  using  an  ifdif. 

DEFINE   INTER  (  PROC  .PR  I  .CHAN  .KEYOX 
FIXCHN<  PROC  ,PRI  .CHAN) 
SETEIR 
SET A  I C ( CHAN ) 

IFDIF  <KEY><  >  »<SETKEY(KEY  .CHAN) >  > 

To  set  up  more  than  one  interrupt  at  a  time  you  need  to  irp  inter; 
because  inter  has  more  than  one  parameter,  you  must  use  the  macro 
COMB  (see  section  9.4).  The  macro  interrupt  can  now  establish  inter- 
rupts. Because  of  irp,  interrupt  will  have  only  one  parameter,  which 
in  turn  will  contain  the  four  values  needed  by  inter,  interrupt  calls 
SIR%  via  a  macro  rdtab.  sir%  informs  the  operating  system  where  to  find 
CHNTAB  and  levtab.  The  system  will  not  read  these  tables  until  an  inter- 
rupt occurs. 

DEFINE  RDTAB  < 

MOVEI    1 »    . FHSLF 

MOVE  2.    [LEVTAB  >  .CHNTAB] 

SIR*. 

erJmp   [print  SIRX  error  ]> 


DEFINE   INTERRUPT  (ualueX 
RDTAB 

IRP   value.   <C0MB   INTER.  ualue>> 


Here  are  examples  of  calls  to  interrupt. 


INTERRUPT   <<CNTE  ,2  ,0 »E>> 

INTERRUPT   <<CNTE  »2  ,0 >E> »<EOF ,2  , 10>> 

The  first  call  is  the  same  as  example  36.  The  second  sets  up  two  interrupts: 
one  is  the  same  as  example  36,  the  other  is  a  priority-level-2,  end-of-file 
interrupt  on  channel  10. 

The  program  in  the  following  example  will  access  a  file  and  send  the  file 
to  the  tty.  An  end-of-file  interrupt  will  stop  it,  and  a  control  E  while  the 
file  is  being  printed  will  cause  the  message  "got  interrupt"  to  appear.  The 
program  will  continue  from  the  point  of  interruption  because  of  the  mon- 
itor call  debrk%.  debrk%  is  a  return  from  interrupt. 


TITLE  EXAMPLE  37 


itwo  interrupts 
5  en  d  of  file  or 
jcontrol  E 


CHNTAB : 
LEV TAB : 


SEARCH   MONSYM  »MYSTUF 

BLOCK  *D3G 

0 

PC2 


i  n o    level  1 

!  po  i  n  t   to    level  2 

ino   level  3 

5  s  a  v  e   PC  here 


PC2: 


0 
z 


START: 


RESET* 

INTERRUPT<<CNTE  ,2  ,0 »E> ,<E0F  .2  »10>> 
REREAD ( JFN  .TTY) 


5 1  h  e     follow  ins  loop 
!is   stopped   by  a 
isystem  generated 
tend   of   file  interrupt 


LOOP: 


MOVE  1  .  JFN 
B  I  NX 

MOME   1  ,2 
PBOUTZ 
JRST  LOOP 


ihere   on   a  control  E 


CNTE: 


HRROI    1  i  CASCIZ/ 

Sot    inter  rupt 


/  ] 


PSOUTX 
DEBRKX 


i  return   from  interrupt 
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ieof  routine 
EOF:  HRROI    li   CASCIZ/   end   of   file  /] 

PSOUTZ 
CLOSE (JFN) 
HALTFX 
END  START 

We  have  used  two  methods  to  handle  the  end  of  an  interrupt  procedure: 
halting  the  program  after  the  interrupt,  and  returning  to  the  exact  posi- 
tion of  the  interrupt  within  the  program.  Another  possibility  is  to  return 
to  the  program,  but  not  to  the  location  of  the  interrupt.  This  method  is 
desirable  when  reading  a  file.  Using  interrupts,  you  need  not  check  whether 
the  byte  is  a  null  and  then  check  to  see  whether  it  is  the  end  of  a  file,  as 
described  in  Chapter  10.  Instead,  the  interrupt  system  can  check  for  the 
end  of  a  file.  An  interrupt  will  then  cause  the  program  to  go  to  the  end- 
of-file  procedure.  debrk%  handles  a  return  from  interrupt  by  placing  in 
the  PC  the  contents  of  the  address  pointed  to  by  the  priority  table.  The 
interrupt  routine  simply  changes  the  contents  of  this  location  priority 
level  table  and  then  debrk%s. 

5end-of-file  interrupt 

MOVE  I   2.  NEXT 

MOVEM  2,   0LEVTAB+1  Jassumed    level  2 

ior  MOVEM  2.  PC2 

DEBRKZ 

Now  when  an  end-of-file  interrupt  occurs,  the  return  from  interrupt  will 
go  to  next  rather  than  to  the  line  where  the  interrupt  occurred. 

A  time-sharing  system  will  also  return  to  a  location  other  than  the  point 
of  interruption.  After  a  fixed  amount  of  time,  the  system  will  stop  one 
process  temporarily,  preserve  its  program  counter,  fetch  another  PC,  and 
continue  the  process.  The  monitor  call  timer%  will  set  a  timed  interrupt. 
It  can  cause  an  interrupt  at  a  specific  time  or  after  an  elapsed  time. 
timer%  uses  the  first  three  accumulators  and  returns  +1,  +2.  The  left 
half  of  accumulator  1  contains  the  process  handle  (.fhslf),  and  the  right 
half  contains  a  function  code.  (We  will  discuss  only  the  elapsed  time  code, 
code  1,  here.)  Accumulator  2  contains  the  time  (or  amount  of  time)  to 
generate  the  interrupt.  Accumulator  3  contains  the  software  interrupt 
channel  number.  In  the  program  below,  loop  first  continuously  prints 
the  message  "in  first  program."  After  2000  milliseconds,  timer%  gener- 
ates an  interrupt  and  the  terminal  prints  the  message  "time  is  up."  Next, 
the  system  exchanges  program  counters  and  transfers  control  to  the  loop 
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second.  This  loop  prints  the  message  "in  second  program"  for  2  seconds. 
After  2  seconds,  the  system  generates  an  interrupt,  prints  "time  is  up," 
and  then  transfers  control  back  to  loop  first. 


TITLE  EXAMPLE  38 

SEARCH  MONSYM .MYSTUF 
CHNTAB:    BLOCK    " D3G 
LEVTAB :  0 

PC2 

0 

PC2:  Z 

OLD :  SECOND 

START:  RESET* 

PRINT  STARTING 

CRLF 

INTERRUPT  <<NEXT.2.0>> 
JSR  SCHED 
FIRST:      PRINT   IN  FIRST  PROGRAM 
CRLF 

JRST  FIRST 


ischeduler 


iset   up  TIMER* 


SECOND:    PRINT   IN  SECOND  PROGRAM 
CRLF 

JRST  SECOND 


NEXT:        PRINT  TIME   IS  UP 
CRLF 

JSR  SCHED  i  reset  TIMER*, 

MOVE   10»   PC2  Jexchanse   old   and  new  pc 

EXCH   10 t  OLD 

MOVEM   10.  PC2 

DEBRKX 


SCHED:  Z 

MOVE   li   C.FHSLF»»1]        ithis  process. 

Jelapsed  time 

MOVEI   2.   2000  52  seconds 

MOVEI   3>  0  ichannel  zero 

TIMER! 
Z 

JRST  0SCHED 
END  START 


If  an  interrupt  routine  must  use  accumulators,  you  must  make  sure  that 
your  program  saves  the  original  contents  of  the  accumulators.  Typically 
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the  first  line  of  an  interrupt  routine  is  a  block  transfer  preserving  acs. 
The  last  line  is  another  block  transfer  returning  the  original  values  to  the 
acs  before  calling  debrk%. 

11.4  Summary 

Interrupts  are  asynchronous  breaks  within  a  program  system  capable  of 
allowing  for  a  resumption  of  the  program  at  that  exact  point  at  some  later 
moment.  They  allow  a  computer  to  control  real-time  situations.  Some 
assembly  interrupts  include  stack  overflow,  illegal  instruction  and  end  of 
file.  Interrupt  capabilities  are  strongly  connected  with  computer  hard- 
ware, whereas  a  high-level  language,  because  of  its  need  for  portability, 
does  not  generally  possess  the  ability  to  "get  its  hooks  into  the  hardware." 
However,  with  the  present  interest  in,  and  the  inherent  need  for  inter- 
rupts in,  embedded  systems,  there  is  a  trend  towards  supplying  high- 
level  languages  (modula-2,  ada)  with  interrupt  ability. 

11.5  Exercises 

1 .  Write  a  program  that  will  search  linearly  through  a  file  for  a  character. 
The  program  should  supply  both  the  file  and  the  character  at  run 
time.  If  the  character  is  present,  print  its  numerical  position.  If  the 
character  is  not  present,  trap  the  end-of-file  interrupt  and  print  "not 
found." 

2.  Set  up  a  stack  and  the  necessary  conditions  to  trap  a  stack  pushdown 
overflow.  Test  your  program  by  using  push  too  often. 

3.  Set  up  a  timers  interrupt  so  that  the  bell  will  ring  every  30  seconds 
while  a  program  is  running.  (For  instance,  insert  the  timers  routine 
into  your  program  for  exercise  1.) 

4.  Write  a  program  that  continuously  writes  a  message  to  the  screen. 
Set  up  a  keyboard  interrupt  so  that  the  program  will  stop  whenever 
the  user  presses  a  key  (.ticti). 

5.  The  jsys  time%  is  a  millisecond  clock.  It  places  a  monotonically 
increasing  number  in  ac  1  (it  also  places  a  1000  in  ac  2).  Write  a 
program  that  will  display  the  duration  of  an  event.  The  event  will 
start  when  the  user  presses  a  key,  which  should  cause  a  keyboard 
interrupt  that  accesses  time%.  Store  the  value  that  is  returned  in  ac 
1.  Stop  the  event  when  the  user  presses  any  key.  This  action  should 
also  cause  an  interrupt  and  call  time%.  The  difference  in  the  values 
of  time%  is  the  number  of  milliseconds  between  keystrokes. 
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APPENDIX 

A  

ASCII  Codes  for  I/O 


Even 

Parity 

7-Bit 

7-Bit 

Bit 

Decimal 

Octal 

Character 

[Remarks] 

0 

000 

000 

NUL 

Null,  tape  feed.  Control  shift  P. 

1 

001 

001 

SOH 

Start  of  heading  [som,  start  of  message].  Control  A. 

1 

002 

002 

STX 

Start  of  text  [eoa,  end  of  address].  Control  B. 

0 

003 

003 

ETX 

End  of  text  [eom,  end  of  message].  Control  C. 

1 

004 

004 

EOT 

End  of  transmission;  shuts  off  twx  machines  and 

disconnects  some  data  sets.  Control  D. 

0 

005 

005 

ENQ 

Enquiry  [wru,  "Who  are  you?"].  Triggers  identification 

("Here  is  .  .  .")  at  remote  station  if  so  equipped. 

Control  E. 

0 

006 

006 

ACK 

Acknowledge  [ru,  "Are  you  .  .  .?"].  Control  F. 

1 

007 

007 

BEL 

Rings  the  bell.  Control  G. 

1 

008 

010 

BS 

Backspace.  Control  H. 

0 

009 

011 

HT 

Horizontal  tab.  Control  I. 

0 

010 

012 

LF 

Line  feed.  Control  J. 

1 

Oil 

013 

VT 

Vertical  tab.  Control  K. 

Even 

Parity       7-Bit  7-Bit 
Bit      Decimal    Octal  Character 


u 

m  9 

FF 

1 

013 

015 

CR 

1 

014 

016 

SO 

0 

015 

017 

SI 

1 

016 

020 

DLE 

0 

017 

021 

DC1 

u 

099 

DC2 

1 

019 

023 

DC3 

0 
u 

090 

094 

1JL/4 

i 
i 

09  fi 

VTA!/ 

IN  AK 

i 
l 

(199 

09fi 

CVM 

093 

097 

l  I  n 

u 

094 

030 

CAN 

i 
1 

0^5 

U<il 

EM 

1 

026 

032 

SUB 

0 

027 

033 

ESC 

1 

028 

034 

FS 

0 

029 

035 

GS 

0 

030 

036 

RS 

1 

031 

037 

US 

[Remarks] 

Form  feed  to  top  of  next  page.  Control  L. 

Carriage  return  to  beginning  of  line.  Control  M. 

Shift  out;  change  character  set  or  change  ribbon  color  to 

red.  Control  N. 
Shift  in;  return  to  standard  character  set  or  color.  Control 

0. 

Data  link  escape  [dco].  Control  P. 

Device  control  1,  turns  transmitter  (reader)  on.  Control  Q 

(x  on). 

Device  control  2,  turns  punch  or  auxiliary  on.  Control  R 

(TAPE,  AUX  ON). 

Device  control  3,  turns  transmitter  (reader)  off.  Control  S 

(X  OFF). 

Device  control  4  (stop),  turns  punch  or  auxiliary  off.  Control 

T  (AUX  OFF). 

Negative  acknowledge  [err,  error].  Control  U. 

Synchronous  idle  [sync].  Control  V. 

End  of  transmission  block  [lem,  logical  end  of  medium]. 

Control  W. 
Cancel  [So].  Control  X. 
End  of  medium  [SJ.  Control  Y. 
Substitute  [S2I  Control  Z. 
Escape,  prefix  [S3].  Control  shift  K. 
File  separator  [SJ.  Control  shift  L. 
Group  separator  [S5].  Control  shift  M. 
Record  separator  [S6].  Control  shift  N. 
Unit  separator  [S7].  Control  shift  O. 
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Figures 


Upper  Case 


Lower  Case 


Even  Even  Even 


irity 

7-Bit 

7-Bit 

Parity 

7-Bit 

7-Bit 

Parity 

7-Bit 

7-Bit 

Bit 

Decimal  Octal  Character 

Bit 

Decimal  Octal  Character 

Bit 

Decimal  Octal  Chara 

1 

032 

040 

SP1 

1 

064 

100 

@4 

0 

096 

140 

0 

033 

041 

i 

0 

065 

101 

A 

1 

097 

141 

a 

0 

034 

042 

t 

0 

066 

102 

B 

1 

098 

142 

b 

1 

035 

043 

#* 

1 

067 

103 

c 

0 

099 

143 

c 

0 

036 

044 

$ 

0 

068 

104 

D 

1 

100 

144 

d 

1 

037 

045 

% 

1 

069 

105 

E 

0 

101 

145 

e 

1 

038 

046 

& 

1 

070 

106 

F 

0 

102 

146 

f 

0 

039 

047 

m 

0 

071 

107 

G 

1 

103 

147 

s 

0 

040 

050 

( 

\ 

0 

072 

110 

H 

1 

104 

150 

h 

1 

041 

051 

) 

1 

073 

111 

I 

0 

105 

151 

i 

1 

042 

052 

* 

1 

074 

112 

J 

0 

106 

152 

i 

0 

043 

053 

+ 

0 

075 

113 

K 

1 

107 

153 

k 

1 

044 

054 

» 

1 

076 

114 

L 

0 

108 

154 

1 

0 

045 

055 

0 

077 

115 

M 

1 

109 

155 

m 

0 

046 

056 

0 

078 

116 

N 

1 

110 

156 

n 

1 

047 

057 

/ 

1 

079 

117 

0 

0 

111 

157 

o 

0 

048 

060 

0 

0 

080 

120 

P 

1 

112 

160 

n 

1 

049 

061 

1 

1 

081 

121 

Q 

0 

113 

161 

Q 

1 

050 

062 

2 

1 

082 

122 

R 

0 

114 

162 

r 

0 

051 

063 

3 

0 

083 

123 

s 

1 

115 

163 

s 

1 

052 

064 

4 

1 

084 

124 

T 

0 

116 

164 

t 

0 

053 

065 

5 

0 

085 

125 

u 

1 

117 

165 

u 

0 

054 

066 

6 

0 

086 

126 

V 

1 

118 

166 

v 

1 

055 

067 

7 

1 

087 

127 

W 

0 

119 

167 

w 

1 

056 

070 

8 

1 

088 

130 

x 

0 

120 

170 

0 

057 

071 

9 

0 

089 

131 

Y 

1 

121 

171 

y 

0 

058 

072 

0 

090 

132 

Z 

1 

122 

172 

z 

1 

059 

073 

t 

1 

091 

133 

[5 

0 

123 

173 

{ 

0 

060 

074 

< 

0 

092 

134 

\6 

1 

124 

174 

.12 

1 

061 

075 

1 

093 

135 

]7 

0 

125 

175 

}13 

1 

062 

076 

> 

1 

094 

136 

-8 

0 

126 

176 

~14 

0 

063 

077 

0 

095 

137 

9 

1 

127 

177 

DEL 

1  Space. 

2f  on  some  (non-DEC)  units. 

3 Accent  acute  or  apostrophe  (')  before  1965,  but 

used  until  recently  on  dec  units. 
4  1965-67,  but  never  on  dec  units. 


5Shift  K. 

6~  1965-67,  but  never  on  dec  units.  Shift  L. 
7Shift  M. 

8Circumflex —  |  before  1965,  but  used  until 
recently  on  dec  units. 
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Underscore —  *-  before  1965,  but  used  until 
recently  on  dec  units. 

10Codes  140-173  first  denned  in  1965.  For  a  full 
ascii  character  set,  the  monitor  accepts  codes 
140-176  as  lower  case.  For  a  character  set  that 
lacks  lower  case,  the  monitor  translates  input 
codes  140-174  into  the  corresponding  upper- 
case codes  (100-134)  and  translates  both  175 
and  176  into  033,  escape.  Early  versions  of  the 
monitor  used  175  as  the  escape  code  and 
translated  both  176  and  033  to  it. 

1 'Accent  grave — @  1965-67,  but  never  on  dec 
units. 


12Control  character  ack  before  1965;  —  1965-67, 

but  never  on  dec  units.  Vertical  bar  may  or 

may  not  have  gap  depending  on  font  design,  but 

generally  does  not  on  dec  units. 
13Unassigned  control  character  (usually  alt 

mode)  before  1965.  Code  generated  by  alt 

mode  key  on  most  dec  units. 
14Control  character  esc  before  1965;  |  1965-67, 

but  never  on  dec  units.  Code  generated  by  esc 

key  on  some  dec  units. 
15Delete,  rub  out  (not  part  of  lowercase  set). 
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ALGEBRAIC  REPRESENTATION 

Boolean  In-out 

Byte  manipulation  Program  control 

Fixed-point  arithmetic  Shift  and  rotate 

Floating-point  arithmetic  Stack 

Full-word  data  transmission  Test,  arithmetic 

Half-word  data  transmission  Test,  logical 

AC  The  accumulator  address  in  bits  9-12  of  the  instruction  word  (represented  by  A  in  the 

instruction  descriptions). 

AC+N        The  address  N  greater  than  AC,  except  that  accumulator  addresses  wrap  around  from  17, 
e.g.,  AC  +  3  is  1  if  AC  is  16. 

E  The  result  of  the  effective  address  calculation.  When  E  is  an  address  it  has  the  number  of 

bits  appropriate  to  such  use — depending  on  the  type  of  processor,  whether  local  or 
global,  etc.  E  is  18  bits  unsigned  when  used  as  a  half-word  operand,  mask,  or  output 
conditions;  9  bits  signed  when  used  as  a  scale  factor  or  shift  number;  and  18  bits  signed 
when  used  as  an  offset.  For  any  signed  quantity,  the  sign  is  always  bit  18. 
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ER  The  in-section  part  of  E  (the  right  18  bits). 

EL  The  section-number  part  of  E  (those  bits,  if  any,  at  the  left  of  bit  18). 

E  +  N  The  address  N  greater  than  E,  with  a  wraparound,  where  appropriate,  from  a  section 

value  of  777777  without  changing  the  section  number. 
PC  The  30-bit  or  18-bit  program  counter;  the  symbol  also  represents  the  contents  of  PC  when 

used  as  the  source  of  an  address. 
PC  + 1         The  address  produced  by  adding  1  to  the  in-section  part  of  PC  with  a  wraparound  from 

777777  (the  section  number  does  not  change). 
(X)  The  word  contained  in  register  X. 

CY)L  The  left  half  of  (X). 

(X)R  The  right  half  of  (X). 

(X)s  The  word  contained  in  X  with  its  left  and  right  halves  swapped. 

An  The  value  of  bit  n  of  the  quantity  A. 

A,B  A  36-bit  word  with  the  18-bit  quantity  A  in  its  left  half  and  the  18-bit  quantity  B  in  its 

right  half  (either  A  or  B  may  be  0). 
(X,Y)  The  contents  of  registers  X  and  Y  concatenated  into  a  double  word  operand. 

(X-Y)  The  contents  of  registers  X  to  Y  concatenated  into  a  multiword  operand. 

{{X  ))  The  word  contained  in  the  register  addressed  by  (X  ),  i.e.,  addressed  by  the  word  in 

register  X. 

A—>B  The  quantity  A  replaces  the  quantity  B  (A  and  B  may  be  half  words,  full  words  or  double 

words).  For  example, 

(AC)  +  (E)  -»  (AC) 

means  the  word  in  accumulator  AC  plus  the  word  in  memory  location  E  replaces  the 
word  in  AC. 

(AC)(E)        The  word  in  AC  and  the  word  in  E. 

Aw~"  The  Boolean  operators  and,  inclusive  or,  exclusive  or,  and  complement. 

H —  X  -s- 1|     The  arithmetic  operators  for  addition,  negation  or  subtraction,  multiplication,  division  and 
absolute  value  (magnitude). 


Square  brackets  are  used  occasionally  for  grouping,  but  when  they  enclose  an  arithmetic  computation 
they  represent  the  "largest  integer  contained  in"  the  enclosed  quantity.  With  respect  to  values  of  their 
terms,  the  equations  for  a  given  instruction  are  in  chronological  order. 

Full-Word  Data  Transmission 


EXCH 

250 

(AC)  -  (E) 

MOVE 

200 

(E)-»(AC) 

MOVS 

204 

(E)s-»  (AC) 

MOVEI 

201 

0,E—(AC) 

MOVSI 

205 

E,0-»(AC) 

MOVEM 

202 

(AQ-KE) 

MOVSM 

206 

(AQg-KE) 

MOVES 

203 

//AC  *  0:  (EHAC) 

MOVSS 

207 

(E)s->(E) 

//AC  *  0:  (E)—  (AC) 

MOVN 

210 

-  (E)  (AC) 

MOVM 

214 

|(E)|  *  (AC) 

MOVNI 

211 

-  [0,E]-»(AQ 

MOVMI 

215 

0,E  —  (AC) 

MOVNM 

212 

-  (AC)-»(E) 

MOVMM 

216 

!(AC)|  -»  (E) 
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MOVNS 

213 

-  (E)-»(E) 

MOVMS 

217 

|(E)|  ~»  (E) 

//AC  *  0:  (E)  —  (AC) 

//AC  *  0:  (E)  —  (AC) 

XMOVEI 

415 

//  not  local  AC  reference:  E  — ►  (AC) 

//  local  AC  reference:  1,E  — *  (AC) 

DMOVE 

120 

(E,E  +  l)-»  (AC.AC  +  1) 

DMOVEM 

124 

(AC.AC  +  1)-*  (E.E  +  l) 

DMOVN 

121 

-  (E.E  +  l)  — (AC.AC  +  1) 

DMOVNM 

125 

-  (AC,AC  +  1)-*(E,E  +  1) 

BLT 

251 

Move  ER  -  (AC)R  +  1  words  starting  with  ((AC)L) 

-»  ((AC)R) 

XB  LT 

Move  |(AC)|  words  (see  page  2-8) 

If '(AC)  >  0:  start  with  ((AC  + 1)) 

-»  ((AC +  2))  and  go  up 

//(AC)  <  0:  start  with  ((AC  + 1) 

-  l)-»((AC  +  2)  - 

1)  and  go  down 

Fixed-Point  Arithmetic 

ADD 

270 

(AC)  +  (E)  -»  (AC) 

SUB 

274 

(AC)  -  (E)  —  (AC) 

ADDI 

271 

(AC)  +  0,E  —  (AC) 

SUBI 

275 

(AC)  -  0,E  -+  (AC) 

ADDM 

272 

(AC)  +  (E)  (E) 

SUBM 

276 

(AC)  -  (E)  (E) 

ADDB 

273 

(AC)  +  (E)  (ACXE) 

SUBB 

277 

(AC)  -  (E)  (AC)(E) 

IMUL 

220 

(AC)  x  (E)  -*  (AC)* 

MUL 

224 

(AC)  x  (E)-»  (AC.AC  +  1) 

IMULI 

221 

(AC)  x0,E-»  (AC)* 

MULI 

225 

(AC)  x  0,E  —  (AC.AC  +  1) 

IML'LM 

222 

(AC)  x  (E)  -  (E)* 

MULM 

226 

(AC)  x  (E)  -»  (E)t 

IMULB 

223 

(AC)  x  (E)  -*  (ACXE)* 

MULB 

227 

(AC)  x  (E)  -»  (AC, AC  +  1)(E) 

IDIV 

230 

(AC)  *  (E)-»(AC) 

DIV 

234 

(AC.AC  + 1)     (E)  —  (AC) 

REMAINDER  -»  (AC  +  1) 

REMAINDER  — >  (AC  +  1) 

IDIVI 

231 

(AC)  +  0,E  —  (AC) 

DIVI 

235 

(AC,AC  +  1)  ■=■  0,E  —  (AC) 

REMAINDER  -»  (AC  +  1) 

REMAINDER  — *  (AC  +  1) 

IDIVM 

232 

(AC)  *  (E)  -*  (E) 

DIVM 

236 

(AC.AC  +  1)  +  (E)-»  (E) 

IDIVB 

233 

(AC)  *  (E)  (ACXE) 

DIVB 

237 

(AC.AC  +  1)  -  (E)-»(AC)(E) 

REMAINDER  — »  (AC  +  1) 

REMAINDER  — >  (AC  +  1) 

*The  high  order  word  of  the  product  is  discarded. 
■*The  low  order  word  of  the  product  is  discarded. 


DADD 

114 

(AC.AC  +  1)  +  (E.E  +  l)  — (AC.AC  +  1) 

DSUB 

115 

(AC.AC  +  1)  -  (E,E  +  l)-»  (AC.AC  +  1) 

DMUL 

116 

(AC.AC  +  1)  x  (E.E  +  l)-*  (AC -AC +  3) 

DDIV 

117 

(AC -AC +  3)  -  (E.E  +  l)— (AC.AC  +  1) 

REMAINDER  -»  (AC  +  2,  AC  +  3) 

Floating-Point  Arithmetic 


FAD 
FADL 
FADM 
FADB 


140 

141 
142 
143 


(AC) 
(AC) 
(AC) 
(AC) 


+  (E) 
+  (E) 
+  (E) 
+  (E) 


(AC) 

(AC.AC  +  1) 
(E) 

(ACXE) 


FADR 
FADRI 
FADRM 
FADRB 


144 

145 
146 
147 


(AC)  +  (E)  - 
(AC)  +  E,0 
(AC)  +  (E)  - 
(AC)  +  (E)  - 


(AC) 
-(AC) 
(E) 

(ACXE) 
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FSB 

150 

(AC)  -  (E)  -» (AC) 

FSBR 

154 

(AC) 

-  (E)  (AC) 

r  odL 

fAPI  —  CF1  — >  ( AP  AP  +  11 

fCDD  T 

1 

loo 

I  api 

_  r  n  >  i  API 

FSBM 

152 

(AC)  -  (E)  >  (E) 

FSBRM 

156 

(AC) 

-  (E)  (E) 

FSBB 

153 

(AC)  -  (E)  (ACKE) 

FSBRB 

157 

(AC) 

-  (E)  -»  (AC)(E) 

FMP 

160 

(AC)  x  (E)  (AC) 

FMPR 

164 

(AC) 

x  (E)  (AC) 

FMPL 

161 

(AC}  x  (E}  — >  (AP  AP  +  lt 

FMPRI 

("API 

FMPM 

162 

(AC)  x  (E)  ->  (E) 

FMPRM 

166 

(AC) 

x  (E)  (E) 

FMPB 

163 

(AC)  x  (E)  -»  (AC)(E) 

FMPRB 

167 

(AC) 

x  (E)  (AC)(E) 

FDV 

170 

(AC)  -  (E)  -»  (AC) 

FDVR 

174 

(AC) 

-  (E)  (AC) 

FDVL 

171 

(AC)  -  (E)  (AC) 

FDVRI 

175 

(AC) 

-  E,0^  (AC) 

REMAINDER  ->  (AC  +  1) 

FDVM 

172 

(AC)  -  (E)  (E) 

FDVRM 

176 

(AC) 

-  (E)  (E) 

FDVB 

173 

(AC)  -  (E)  (AC)(E) 

FDVRB 

177 

(AC) 

-  (E)-»(AC)(E) 

FIX 


UFA  130 

DFN  131 

FSC  132 

FLTR  127 

122     (E)  fixed  (AC) 

DFAD  110 

DFSB  111 

DFMP  112 

DFDV  113 


(AC)  +  (E)  — » (AC  + 1)  without  normalization 

-  (AC,E)-»  (AC,E) 

(AC)  x  2E  —  (AC) 

(E) floated,  rounded  — >  (AC) 

fixr  126     (E)^xed,  rounded  -*  (AC) 

(AC.AC  +  1)  +  (E,E  +  1)-»(AC,AC  +  1) 
(AC.AC  + 1)  -  (E,E  +  1)  -»  (AC.AC  + 1) 
(AC.AC  +  1)  x  (E,E  +  l)-»  (AC,AC  +  1) 
(AC.AC  +  1)  +  (E,E  +  l)-»  (AC.AC  +  1) 


setz  400  0  ->  (AC) 

setzi  401  0  -*  (AC) 

setzm  402  0  -»  (E) 

setzb  403  0  -»  (ACKE) 


Boolean 

SETO 
SETOI 
SETOM 
SETOB 


474  777777777777  -»  (AC) 

475  777777777777  -»  (AC) 

476  777777777777  -»  (E) 

477  777777777777  -h>  (ACKE) 


seta  424  (AC)  -»  (AC)  [no-op] 

setai  425  (AC)  -»  (AC)  [no-op] 

setam  426  (AC)  -»  (E) 

setab  427  (AC)  ->  (E) 


setca  450  -  (AC)  -»  (AC) 

setcai  451  -  (AC)  -»  (AC) 

setcam  452  -  (AC)  ->  (E) 

setcab  453  ~  (AC)  (AC)(E) 


setm  414  (E)  -»  (AC) 

setmi  415  0,E  ->  (AC) 

setmm  416  (E)  -*  (E)  [no-op] 

setmb  417  (E)  -»  (AC)(E) 


SETCM 
SETCMI 
SETCMM 
SETCMB 


460 

461 
462 
463 


(E)  ->  (AC) 
[0,E]-»(AC) 
(E)-*(E) 
(E)  -*  (ACKE) 
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and  404  (AC)  a  (E)  (AC) 

andi  405  (AC)  ■  0,E  -*  (AC) 

andm  406  (AC)  •  (E)  (E) 

andb  407  (AC)  -  (E)  ->•  (ACME) 


ANDCA 
ANDCAI 
ANDCAM 
AN'DCAB 


410 
411 
412 
413 


(AC)a(E)- 
(AC)  a  0,E 
(AC)  a  (E)  - 
(AC)  a(E)- 


(AC) 
►(AC) 
(E) 

(AC)  (E) 


ANDCM  420  (AC)  •  -  (E)-»  (AC)  ANDCB  440 

andcmi  421  (AC)  ■  -  [0,E]-»  (AC)  andcbi  441 

andcmm  422  (AC)  r  -(E)-*  (E)  andcbm  442 

andcmb  423  (AC)  •  -  (E)  -» (AC)(E)  andcbb  443 


(AC)a-(E)->(AC) 
(AC)  a  -  [0,E]  -»  (AC) 
(AC)  a  -  (E)  -»  (E) 
(AC)  a  -  (E)  -»  (AC)(E) 


ior  434  (AC)  „  (E)  — >  (AC) 

iori  435  (AC)  .  0,E  -*  (AC) 

iorm  436  (AC)  v  (E)  (E) 

iorb  437  (AC)  v  (E)  —  (AC)(E) 


orca  454  -  (AC)  v  (E)  -*  (AC) 

orcai  455  ~  (AC)  v  0,E  ->  (AC) 

orcam  456  -  (AC)  v  (E)  ->  (E) 

orcab  457  -  (AC)  v  (E)  ->  (AC)(E) 


orcm  464  (AC)  .  -  (E)  ->•  (AC)  orcb  470 

orcmi  465  (AC)  v  ~  [0,E]  —  (AC)  orcbi  471 

orcmm  466  (AC)  v  -  (E)  -» (E)  orcbm  472 

orcmb  467  (AC)  .  -  (E)  -» (AC)(E)  orcbb  473 


(AC)  v  -  (E)  —  (AC) 
(AC)  v  -  [0,E]  -»  (AC) 
(AC)  v  -  (E)  (E) 
(AC)  ,  -  (E)  ->  (AC)(E) 


xor  430  (AC)  v  (E)  —  (AC) 

xori  431  (AC)  v0,E-»  (AC) 

xorm  432  (AC)  v  (E)  —  (E) 

xorb  433  (AC)  v  (E)  —  (AC)(E) 


eqv  444  ~  [(AC)  v  (E)]  -*  (AC) 

eqvi  445  -  [(AC)  v  0,E]  (AC) 

eqvm  446  -  [(AC)  v  (E)]  (E) 

eqvb  447  ~  [(AC)  v  (E)]  (AC)(E) 


Shift  and  Rotate 

ash  240     (AC)  x  2E  —  (AC)  ashc  244  (ACAC  +  l)x2E-^(AC,AC  +  l) 

rot  241     Rotate  (AC)  E  places  rotc  245  Rotate  (AC, AC  + 1)  E  places 

LSH  242    Shift  (AC)  E  places  lshc  246  Shift  (AC, AC  + 1)  E  places 


Arithmetic  Testing 


AOBJP 

252 

(AC)  +  1,1  —  (AC)  //(AC) 

&  0:  E  (PC) 

AOBJN 

253 

(AC)  +  1,1  —  (AC)  //(AC)  <  0:  E  —  (PC) 

CAI 

300 

No-op 

CAM 

310 

No-op 

CAIL 

301 

//(AC)  <  E:  skip 

CAML 

311 

//(AC)<(E):  skip 

CAIE 

302 

//(AC)  =  E:skip 

CAME 

312 

//(AC)  =  (E):  skip 

CAILE 

303 

//(AC)  «  E:  skip 

CAMLE 

313 

If  (AC)  «  (E):  skip 

CAIA 

304 

Skip 

CAMA 

314 

Skip 

CAIGE 

305 

//(AC)  5=  E:  skip 

CAMGE 

315 

//(AC)  2=  (E):  skip 
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CAIN 

OA£ 

oOo 

//  (AO)  =f  ti:  stop 

CAMN 

olD 

If  (AC)  +  (hi):  skip 

CAIG 

307 

lj  (AKj)  >  hi.  skip 

CAMG 

317 

//  (AC)  >  (E):  skip 

JUMP 

OOA 
3<20 

No-op 

SKIP 

OOA 

330 

//  AC     0:  (E)  — >  (AC) 

JUMPL 

321 

If  (AC)  <  0:  E  ->  (PC) 

SKIPL 

331 

//  AC  =/=  0:  (E)  (AC) 

//(E)  <  0:  skip 

JUMPE 

322 

//  (AC)  =  0:  E  -»  (PC) 

SKIPE 

332 

If  AC  *  0:  (E)  (AC) 

//(E)  =  0:  skip 

JUMPLE 

323 

//  (AC)  «  0:  E  -»  (PC) 

SKIPLE 

333 

If  AC  +  0:  (E)  ->  (AC) 

//  (E)  «  0:  skip 

JUMPA 

324 

E  -*  (PC) 

SKIPA 

334 

If  AC  +  0:  (E)  -»  (AC) 

JUMPGE 

325 

//  (AC)  &  0:  E  -»  (PC) 

SKIPGE 

335 

//  AC     0:  (E)  -»  (AC) 

//  (E)  >  0:  s/«p 

JUMPN 

326 

//(AC)     0:  E  -»  (PC) 

SKIPN 

336 

//  AC  +  0:  (E)  -»  (AC) 

//(E)  ^  0:  sfetp 

JUMPG 

327 

//(AC)>0:E  —  (PC) 

SKIPG 

337 

//AC  ^  0:  (E)^  (AC) 

//(E)  >  0:  s/ctp 

AOJ 

340 

(AC)  +  1  — » (AC) 

SOJ 

360 

/  A                     1              /A  /~1  \ 

(AC)  -  1  -*  (AC) 

AOJL 

341 

(AC)  +  1  -*  (AC) 

SOJL 

361 

(AC)  -  1  -*  (AC) 

If  (AC)  <0:  E-KPC) 

//  (AC)  <  0:  E  ->  (PC) 

AOJE 

342 

(AC)  +  1  -»  (AC) 

SOJE 

362 

(AC)  -  1  -»  (AC) 

//  (AC)  =  0:  E  -+  (PC) 

If  (AC)  =  0:->  (PC) 

AOJLE 

343 

(AC)  +  1  -»  (AC) 

SOJLE 

363 

(AC)  -  1  ->  (AC) 

if(\c\  <  n-     _» ^ppi 
i/  ^aoj  ==  u.  Jii   » (.ru,) 

If(bC\  <  fl-  TT  — >.  ^Pr"l 
i/  VAL^;  ===  U.  Hi  — *  \"y->) 

AHT  A 

344 

(AC)  +  1  — >  (AC) 

SOJA 

364 

f AC)  -  1  — »  (AC) 

E  -»  (PC) 

E  (PC) 

345 

(AC)  +  1  — » (AC) 

SO.IGE 

365 

(AC)  -  1  -»  (AC) 

//(AC)2*0:E  — (PC) 

//(AC)  >  0:  E^  (PC) 

AOJN 

346 

(AC)  +  1  — ►  (AC) 

\ A*.\_/ /       1       A.               \ ^  IV / 

SOJN 

366 

(AC)  -  1  -»  (AC) 

//(AC)     0:  E-*  (PC) 

//(AC)  ^  0:E-*(PC) 

AOJG 

347 

(AC)  +  1  -»  (AC) 

SOJG 

367 

(AC)  -  1  -*  (AC) 

y  a        y            x           \ x  i.  v.  y 

//(AC)  >  0:  E->  (PC) 

//(AC)>0:E^(PC) 

350 

(E)  +  1  — >  (E) 

SOS 

370 

(E)  -  i  _ ►  (E) 

If  (AC)  +  0-  (E)  ->  (AC) 

//"AC  =^  0-  (E)  -*  (AC) 

AOSL 

OK1 

/IT  \     1      1   *  /"CM 

SOSL 

Q71 
oil 

(h,)  —  i  — »  v.n<y 

/fAC     0*  (E)  ->  (AC) 

//"AC  =^0-  (E)  -»  (AC) 

If(E)  <  0-  sfci» 

//(E)  <  0:  sfcip 

AOSE 

35^ 

(E)  +  1  — »  (E) 

SOSE 

(h)  —  I  — >  (1!j) 

//AC     0:  (E)  —  (AC) 

//AC  ^  0:  (E)  -»  (AC) 

//(E)  =  0:  skip  t 

//(E)  =  0:  skip 
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AOSLE 

353 

(E)  +  1  —  (E) 

SOSLE 

373 

(E)  -  1^(E) 

//  AL  =f  0:  (hi)  — >  (AL) 

If  AL  +  0:  (£,)  — »  (AL) 

7/  (£<)      U:  SKip 

If  (Cj)  ^  U:  skip 

AOSA 

354 

(E)  +  l-»  (E) 

SOSA 

374 

(E)  -  1  —  (E) 

7/  AL  =f  0:  (h)  — »  (AL) 

lj  AL  =f  0:  (hj)  — >  (AL) 

o/czp 

AOSGE 

355 

(E)  +  1  —  (E) 

SOSGE 

375 

(E)  -  1  —  (E) 

//  AL  =f  0:  (Ei)  — >  (AL) 

lj  AL  =f  0:  (b)  — >  (AL) 

i/  (.il;  ^  U.  SKip 

IJ  {Hi)  &  U.  Stflp 

AOSN 

356 

(E)  +  1  —  (E) 

SOSN 

376 

(E)  -  1  —  (E) 

lj  AL  =f  U:  (hi)  — ►  (AL) 

//  AL  =f  U:  (E)  — >  (AL) 

LJ  (£j)  =f  u:  sfctp 

AOSG 

357 

(E)  +  1  -*  (E) 

SOSG 

377 

(E)  -  1  ->  (E) 

If  AC  *  0:  (E)-»  (AC) 

//AC  =jt  0:  (E)-»  (AC) 

//(E)  >0:  skip 

//(E)  >0:  sfctp 

Logical  Testing  and  Modification 

TLN 

601 

No-op 

TRN 

600 

No-op 

TLNE 

603 

7/(AC)L  a  E  =  0:  skip 

TRNE 

602 

//(AC)r  a  E  =  0:  sfctp 

TLNA 

605 

Skip 

TRNA 

604 

Sfctp 

TLNN 

607 

7/(AC)L  a  E  *  0:  sfctp 

TRNN 

606 

//(AC)R  aE^O:  sfctp 

TLZ 

621 

(AC)L  a  ~  E  — »  (AC)L 

TRZ 

620 

(AC)R  a  -  E  —  (AC)R 

TLZE 

623 

//(AC)laE  =  0:sfcip 

TRZE 

622 

//(AC)R  aE  =  0:  sfctp 

(AC)L  a  -  E  — *  (AC)L 

(AC)R  a  -  E  -»  (AC)R 

TLZA 

625 

(AC)L  a  -  E  — >  (AC)L  skip 

TRZA 

624 

(AC)r  a  ~  E  —  (AC)R  skip 

TLZN 

627 

7/(AC)L  a  E  *  0:  sfctp 

TRZN 

626 

//(AC)raE  *  0:  sfctp 

(AC)L  a  -  E  ->  (AC)L 

(AC)R  a  -  E  -»  (AC)R 

TLC 

641 

(AC)L  v  E  ^  (AC)L 

TRC 

640 

(AC)r  v  E  -»  (AC)R 

TLCE 

643 

//(AC)L  a  E  =  0:  sfctp 

TRCE 

642 

//(AC)raE  =  0:  sfctp 

(AC)LVE-*(AC)L 

(AC)r  v  E  ^  (AC)r 

TLCA 

645 

(AC)L  v  E  ^  (AC)L  skip 

TRCA 

644 

(AC)R  v  E     (AC)R  sfctp 

TLCN 

\¥±  I 

//(AC)L  aE^O:  skip 

TRCN 

646 

i/  iaL/>r  a  ji,  ^  u:  s/ctp 

(AC)L  v  E  -»  (AC)L 

ia<^;r  v  IAOJr 

TLO 

661 

(AC)L  v  E  -» (AC)L 

TRO 

660 

(AC)r  v  E  ^  (AC)R 

TLOE 

663 

//(AC)la  E  =  0:  skip 

TROE 

662 

//(AC)R  aE  =  0:  sfctp 

(AC)L  v  E  (AC)L 

(AC)R  v  E  ->  (AC)R 

TLOA 

665 

(AC)L  vE->  (AC)L  skip 

TROA 

664 

(AC)R  v  E  -» (AC)R  sfctp 

TLON 

667 

7/(AC)L  aE^O:  skip 

TRON 

666 

//(AC)r  aE  ^0:  sfctp 

(AC)L  v  E  ^  (AC)L 

(AC)r  v  E  ->  (AC)R 

DECSYSTEM-20  OPCODES  165 


TDN 

610 

No-op 

TSN 

611 

TDNE 

612 

//(AC)  a  (E)  =  0:  skip 

TSNE 

613 

TDNA 

D14 

OKlp 

TSNA 

DID 

TDNN 

DID 

rf /Ap\  a  fT?\  -4-  A. 

1J  yriXj)  A  \Ej)       U.  SKip 

TSNN 

Dl  / 

TDZ 

630 

(AC)  a  -  (E)  —  (AC) 

TSZ 

631 

TDZE 

632 

//(AC)a(E)  =  0:  skip 

TSZE 

633 

(AC)  a  -  (E)  —  (AC) 

TDZA 

634 

(AC)  a  -  (E)  ->  (AC)  sfcip 

TSZA 

635 

TDZN 

DOD 

//  (AO)  a  {hi)     U:  stop 

TSZN 

637 

A  -  — » 

TDC 

650 

(AC)  v  (E)  -  (AC) 

TSC 

651 

TDCE 

652 

//(AC)a(E)  =  0:  skip 

TSCE 

653 

(AC)  v  (E)  (AC) 

TDCA 

654 

(AC)  v  (E)  -» (AC)  skip 

TSCA 

655 

TDCN 

DOD 

//  (AO  A  (£,;      U:  SKip 

TSCN 

657 

(.AC;  v  n^)-*  (ao; 

TDO 

670 

CAC)V(E)-*(AC) 

TSO 

671 

TDOE 

672 

//(AC)a(E)  =  0:  stop 

TSOE 

673 

(AC)  v  (E)  -  (AC) 

TDOA 

674 

(AC)  v  (E) -»  (AC)  skip 

TSOA 

675 

TDON 

676 

//(AC)a(E)  *0:  sAcip 

TSON 

677 

(AC)  v  (E)  ->  (AC) 

Half- Word  Data  Transmission 

HLL 

500 

(E)L^(AC)L 

HLLZ 

510 

HLLI 

501 

0  -»  (AC)L 

HLLZI 

511 

HLLM 

502 

(AC)L  *  (E)L 

HLLZM 

512 

HLLS 

OUo 

//AC  *  0:  (E)-»(AC) 

HLLZS 

513 

HLLO 

520 

(E)L(777777  —  (AC) 

HLLE 

530 

HLLOI 

521 

0,777777  (AC) 

HLLEI 

531 

HLLOM 

522 

(AC)L,777777  —  (E) 

HLLEM 

532 

HLLOS 

coo 

777777  —  (E)R 

HLLES 

533 

//AC  *  0:  (E)->  (AC) 

HLR 

544 

(E)L  (AC)R 

HLRZ 

554 

HLRI 

545 

0  -»  (AC)R 

HLRZI 

555 

HLRM 

546 

(AC)l^(E)r 

HLRZM 

556 

HLRS 

547 

(E)l  ->  (E)R 

HLRZS 

557 

//AC  *  0:  (E)  — (AC) 

HLRO 

564 

777777,(E)L  (AC) 

HLRE 

574 

HLROI 

565 

777777,0  ->  (AC) 

HLREI 

575 

No-op 

//(AC)  a  (E)s  =  0:  skip 
Skip 

//(AC)  a(E)s  *  0:  skip 

(AC)  a  ~  (E)s  (AC) 
//(AC)a(E)s  =  0:  skip 
(AC)a~(E)s^(AC) 
(AC)  a  -  (E)s  -»  (AC)  skip 
//(AC)  a  (E)s  *  0:  skip 
(AC)  a~  (E)s  (AC) 

(AC)  v  (E)S-*(AC) 
//(AC)a(E)s  =  0:  skip 
(AC)  v  (E)s  — (AC) 
(AC)  v  (E)s  -»  (AC)  sfcip 
//(AC)a(E)s  *  0:  stop 
(AC)  v  (E)s  -»  (AC) 

(AC)  v  (E)s  (AC) 
//(AC)  a(E)s  =  0:  skip 
(AC)  v  (E)s  -»  (AC) 
(AC)  v  (E)s     (AC)  stop 
//(AC)  a  (E)s  *  0:  s&ip 
(AC)v(E)s-»(AC) 


(E)L,0  -»  (AC) 
0->(AC) 
(AC)L,0-»(E) 
0  -»  (E)R 

//AC  *  0:  (E)-»  (AC) 

(E)L,[(E)o  x  777777]  -*  (AC) 
0  —  (AC) 

(AC)L,[(AC)o  x  777777]  -*  (E) 
(E)0  x  777777  -+  (E)R 
//AC  *  0:  (E)—  (AC) 

0,(E)L  -»  (AC) 

0  -*  (AC) 

0,(AC)L  (E) 

0,(E)L  — (E) 

//AC  *  0:  (E)-»  (AC) 

[(E)o  x  777777],(E)L  -»  (AC) 
0  —  (AC) 
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HLROM 
HLROS 

HRR 
HRRI 
HRRM 
HRRS 

HRRO 
HRROI 
HRROM 
HRROS 

HRL 
HRLI 
HRLM 
HRLS 

HRLO 
HRLOI 
HRLOM 
HRLOS 


XHLLI 


XCT 
JFFO 

JFCL 

JRST 

PORTAL 

JRSTF 

HALT 

XJRSTF 

XJEN 

XPCW 

JEN 

SFM 


zee 
OOO 

<  / I I I  <,(AC)L  — »  (£,) 

HLREM 

£7C 

r/Ar^     v   7777771  /AP^   *  /XT'* 

567 

777777  (E)i  -»  (E) 

HLRES 

A  A      AW  0 

577 

T(E)n  x  7777771  (E)i  -»  (E) 

If  AC  *  0:  (E)->  (AC) 

If  AC  *  0:  (E)->  (AC) 

(E)R  ->  (AC)R 

HRRZ 

CCA 

550 

0,(E)R  ->(AC) 

o41 

E  -»  (AC)r 

HRRZI 

rri 

551 

0,E  — >  (AC) 

1  ■ '— 

0  (Aflr,  — >  CFI 
u,vav^;r    »  k-I-J/ 

543 

//AC  *  0:  (E)  -»  (AC) 

HRRZS 

553 

0  — *  (E)l 

//AC  ^  0:  (E)-*  (AC) 

560 

777777, (E)R  -»  (AC) 

HRRE 

570 

[(E)18  x  777777], (E)R  -»  (AC) 

561 

777777,  E  -*  (AC) 

HRREI 

571 

[E18  x  777777], E  (AC) 

zen 

777777  f  Af"^   *  /TA 

HRREM 

£79 

17  API       v   7777771  /Ap\   i.  /17'\ 

563 

777777  -»  (E)i 

HRRFS 

A  A  I  V  lb  J  '  J 

573 

(E),fl  x  mm  ->  (E)t 

If  AC  *  0:  (E)->  (AC) 

//AC  *  0:  (E)—  (AC) 

o04 

(E)R  t*  (AC)l 

HRLZ 

ol4 

/  T7»  \       A           /A  /~i  \ 

(E)R,0  -*  (AC) 

505 

E  -»  (AC)L 

HRLZ1 

515 

E,0^  (AC) 

tA6 
OUT) 

C  API   »  CF\ 

nnr  V  \4 

rlK  LZ.M 

Tlfi 

OlD 

< API    A  — *  (V\ 

507 

(E)  (E)t 

HRLZS 

517 

(E)R,0^  (E) 

//AC  *  0:  (E)  -»  (AC) 

//(AC)  *  0:  (E)-»  (AC) 

524 

(E)R, 777777-*  (AC) 

HRLE 

534 

(E)R,[(E)18  x  777777]  -»  (AC) 

525 

E, 777777  — *  (AC) 

HRLEI 

cor 

535 

L,[E18  x  777777]  — »  (AC) 

526 

(AC)R, 777777  -»  (E) 

HRLEM 

536 

(AC)R,[(AC)18  x  777777]  -^(E) 

0£.  1 

/V\    777777  1.  /"li^ 

(£Jr,<  <<<<<—>  IJ5J 

HRLES 

£Q7 
00  < 

fU*\     TfJT\       v   7777771   ^ 

1(^)18  X    111111}—*  (IL) 

if  AC  ^  0-  (E)  ->  (AC) 

//AC  *  0:  (E)  —  (AC) 

501 

EL  (AC)L 

Program  Control 

256  Execute  (E) 

243  //(AC)  =  0:0— (AC  +  1) 

//(AC)  *  0:E  —  (PC) 

255  //AC    flags  *  0.  E  —  (PC)  -  AC  '  flags-*  flags 

25400  E  —  (PC) 

25404  0  ->  public      E  ->  (PC) 

25410  (X)L  or  (Y)L  —  flags         E  —  (PC) 

25420  E  —  (PC)  stop 

25424  (E)L—  flags      (E  +  l)  —  (PC) 

25430  Dismiss  pi(E)l  —  flags      (E  + 1)  ->  (PC) 

25434  flags,  0— (E)         PC  +  l->  (E  +  l)         (E  +  2)l-»  flags      (E+3)-»  (PC) 

25450  Dismiss  pi  (X)l  or  (Y)L->  flags      E  ->  (PC) 

25460  flags,  0  —  (E) 
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JSR 

JSP 

JSA 
JRA 

MAP 

PUSH 

POP 

PUSHJ 

POPJ 
ADJSP 

IBP 
ADJBP 


264 

265 

266 
267 

257 

261 
262 
260 

263 
105 


133 
AC  =  0 

133 
AC  *  0 


//  PCL  =  0:      flags,  PCR  +  1  -» (E)         E  + 1 
//PCL  *  0:      PC  +  1^(E)      E  +  1^(PC) 

//PCL  =  0:      flags,  PCR  + 1  -*  (AC)      E  —  (PC) 
//  PCL  *  0:      PC  + 1  ->  (AC)      E  -»  (PC) 
(AC)  -»  (E)      ER,  PCr  + 1  -»  (AC)      E  + 1  -»  (PC) 
((AC)L)  -»  (AC)      E  -»  (PC) 

(AC) 


(PC) 


PHYSICAL  map  data 


Stack 


//PCL  =  0  or  (AOo.6.17  «  0:  (AC)  +  1,1- 
I/PGt  *  Oand  (AC)0.6-i7  >  0:    (AC)  +  1 

7/PCl  =  0  or  (AC)o  s-w  *  0:  ((AC)r)  -»  (E) 
7/PCl  *  0  arui  (ACj0.6.17  >  0:      ((AC))  —  (E) 

7/PCl  =  0:  (AC)  +  1,1  -»  (AC)  flags,  PC+  1 
7/PCL  *  0  and   (AC)0,6-i7  «  0:  (AC)  +  1,1 -»  (AC) 


7/PCL  *  0  and   (AC)0  6-i7  >  0:  (AC)  +  1 
E  ->  (PC) 

((AC)r)r  -»  (PC)  (AC) 

(AC)o,6-17  *  0 


(AC)  (E)  -»  ((AC)r) 
»  (AC)      (E)  -»  ((AC)) 

(AC)  -  1,1  — ►  (AC) 
(AC)  -  1  -»  (AC) 

((AC)R) 
PC  +  1^((AC)r) 


(AC)      PC  +  1-»((AC)) 


7/PCL  =  0: 
7/PCL  *  Oand 

7/PCL  *  0  and  (AC)0f6-i7  >  0 

If  PCL  =  0  or  (AC)o.e-i7*0 


7/PCl  *  Oand   (AC)  o,6-n  >  0:  (AC)  +  [±]  ER 

Byte  Manipulation 

Linear  operations  on  pointer  in  E  or  E,E  + 1 
7/P  -  S  ^  0:  P  -  P 
7/P-S<0:    Y  +  1-»Y      36-S  — P 

Array  operations  on  pointer  in  E  or  E,  E  +  1 
 p 

Let  A  =  REMAINDER  


1,1  -» (AC) 
«AC)R)  -»  (PC)      (AC)  -  1,1  -»  (AC) 
((AC))  -»  (PC)      (AC)  -  1  -»  (AC) 
(AC)  +  [±]ER,  Ek->(AC) 


(AC) 


7/S  >  36  -  A:  1  -»  no  divide 

7/  S  =  0:  (E)  ->  (AC)  or  (E,E  + 1)  -*  (AC, AC  + 1) 

7/0<S<36  -  A:  waAre co/>2/ Co/(E) or (E,E  +  1) 


Compute  (AC)  + 


36  -  P 


Q  x  bytes/word  +  R 


1  «  R  =£  BYTES/WORD  = 

Y{C}  +  Q  ->  Y{C} 
36-RxS-A-*  P{C} 
C-»  (AC)  or  (AC,AC  +  1) 


36  -  P 
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LDB 

135 

BYTE  IN  ((E))  -» 

(AC) 

DPB 

1  OT 

137 

BYTE  IN  (AC)  — * 

BYTE  IN  ((E)) 

ILDB 

134 

IBP  and  LDB 

IDPB 

136 

IBP  am/  DPB 

In-Out 

CONO 

70020 

E  ->  COMMAND 

CONSZ 

70030 

If  STATUSr  A 

E  =  0:  skip 

STATLS  — * 

CONSO 

<UUo4 

IJ  STATUSr  a 

E  ^  0;  skip 

DATAO 

lUUJ.4 

(Jli)  —  DATA 

DATAI 

HCif\f\A 

<UU04 

DATA  —  (E) 

BLKO 

70010 

(E)  +  1,1  -(E) 

((E)r)  —  DATA  7/(E)L 

+  0:  skip 

BLKI 

70000 

(E)  +  1,1  —  (E) 

DATA  — 

((E)R)  7/(E)L 

4=  0:  skip 
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POWERS  OF  TWO 


2* 


1 

0 

1.0 

2 

1 

0.5 

4 

2 

0.25 

8 

3 

0.125 

16 

4 

0.062  5 

32 

5 

0.031  25 

64 

6 

0.015  625 

128 

7 

0.007  812  5 

256 

8 

0.003  906  25 

512 

9 

0.001  953  125 

1 

024 

10 

0.000  976  562 

2 

048 

11 

0.000  488  281 

4 

8 

096 
192 

12 
13 

0.000  244  140 
0.000  122  070 

16 

384 

14 

0.000  061  035 

32 

768 

15 

0.000  030  517 

65 

536 

16 

0.000  015  258 

131 

072 

17 

0.000  007  629 

262 

144 

18 

0.000  003  814 

524 

288 

19 

0.000  001  907 

1 

048 

576 

20 

0.000  000  953 

2 

097 

152 

21 

0.000  000  476 

4 

8 

194 

388 

304 
608 

22 
23 

0.000  000  238 
0.000  000  119 

16 

777 

216 

24 

0.000  000  059 

33 

554 

432 

25 

0.000  000  029 

67 

108 

864 

26 

0.000  000  014 

134 

217 

728 

27 

0.000  000  007 

268 

435 

456 

28 

0.000  000  003 

536 

870 

912 

29 

0.000  000  001 

1 

073 

741 

824 

30 

0.000  000  000 

2 

147 

483 

648 

31 

0.000  000  000 

4 

294 

967 

296 

32 

0.000  000  000 

8 

5-9 

934 

592 

33 

0.000  000  000 

17 

179 

869 

184 

34 

0.000  000  000 

34 

359 

738 

368 

35 

0.000  000  000 

68 

719 

4  76 

736 

36 

0.000  000  000 

137 

43- 

963 

472 

37 

0.000  000  000 

274 

877 

906 

944 

38 

0.000  000  000 

549 

755 

813 

888 

39 

0.000  000  000 

1 

i)99 

511 

627 

776 

40 

0.000  000  000 

2 

199 

023 

255 

552 

41 

0.000  000  000 

4 

398 

046 

511 

104 

42 

0.000  000  000 

8 

796 

093 

022 

208 

43 

0.000  000  000 

17 

592 

186 

044 

416 

44 

0.000  000  000 

35 

184 

372 

088 

832 

45 

0.000  000  000 

70 

368 

744 

177 

664 

46 

0.000  000  000 

140 

737 

488 

355 

328 

47 

0.000  000  000 

281 

474 

976 

710 

656 

48 

0.000  000  000 

562 

949 

953 

421 

312 

49 

0.000  000  000 

1 

125 

B99 

906 

-42 

624 

50 

0.000  000  000 

2 

251 

799 

813 

6.-5 

248 

51 

0.000  000  000 

4 

503 

599 

627 

.370 

496 

52 

0.000  000  000 

9 

007 

199 

254 

740 

992 

53 

0.000  000  000 

18 

014 

398 

509 

4-1 

984 

54 

0.000  000  000 

36 

028 

797 

018 

963 

968 

55 

0.000  000  000 

72 

057 

594 

037 

927 

936 

56 

0.000  000  000 

144 

115 

188 

075 

855 

872 

57 

0.000  000  000 

2S8 

23  0 

376 

151 

711 

744 

58 

0.000  000  000 

576 

460 

752 

303 

423 

488 

59 

0.000  000  000 

1 

152 

921 

504 

606 

846 

976 

60 

0.000  000  000 

2 

305 

843 

009 

213 

693 

952 

61 

0.000  000  000 

4 

611 

686 

018 

427 

387 

904 

62 

0.000  000  000 

9 

223 

372 

036 

854 

775 

808 

63 

0.000  000  000 

18 

146 

744 

073 

709 

5.51 

616 

64 

0.000  000  000 

36 

893 

488 

147 

419 

103 

232 

65 

0.000  000  000 

73 

786 

976 

294 

838 

206 

464 

66 

0.000  000  000 

147 

573 

952 

589 

676 

412 

928 

67 

0.000  000  000 

295 

147 

905 

179 

352 

825 

856 

68 

0.000  000  000 

590 

295 

810 

358 

705 

651 

712 

69 

0.000  000  000 

1  180 

591 

620 

717 

411 

303 

424 

70 

0.000  000  000 

2  361 

183 

241 

434 

.-22 

606 

848 

71 

0.000  000  000 

4  722 

366 

482 

-69 

645 

213 

696 

72 

0.000  000  000 

5 

25 
625 
312  5 
156  25 
578  125 
789  062 
394  531 
697  265 
348  632 
674  316 
837  158 
418  579 
209  289 
604  644 
802  322 
901  161 
450  580 
725  290 
862  645 
931  322 
465  661 
232  830 
116  415 
058  207 
029  103 
014  551 
007  275 
003  637 
001  818 
000  909 
000  454 
000  227 
000  113 
000  056 
000  028 
000  014 
000  007 
000  003 
000  001 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 
000  000 


25 
625 
812  5 
406  25 
203  125 
101  562 
550  781 

775  390 
387  695 
193  847 
596  923 
298  461 
149  230 
574  615 
287  307 
643  653 
321  826 
660  913 
830  456 
915  228 
957  614 
978  807 
989  403 
494  701 
747  350 
373  675 
686  837 
843  418 
421  709 
210  854 
105  427 
552  713 

776  356 
888  178 
444  089 
222  044 
111  022 
055  511 
027  755 
013  877 
006  938 
003  469 
001  734 
000  867 
000  433 
000  216 
000  108 
000  054 
000  027 
000  013 
000  006 
000  003 
000  001 
000  000 
000  000 
000  000 


25 
625 
312  5 
656  25 
828  125 
914  062 
957  031 
478  515 
739  257 
869  628 
934  814 
467  407 
733  703 
366  851 
183  425 
091  712 
545  856 
772  928 
886  464 
443  232 
721  616 
860  808 
430  404 
715  202 
357  601 
678  800 

839  400 

419  700 

209  850 
604  925 
302  462 
151  231 
575  615 
787  807 
893  903 
466  951 
723  475 
361  737 
680  868 

840  434 

420  217 

210  108 
105  054 
552  527 
776  263 
388  131 
694  065 
847  032 
423  516 

211  758 


5 

25 
625 
812  5 

906  25 
453  125 
226  562 
613  281 
806  640 
903  320 
951  660 
475  830 
237  915 
118  957 
059  478 
029  739 
014  869 
007  434 
003  717 
001  858 
500  929 
250  464 
125  232 
062  616 
031  308 
515  654 
257  827 
628  913 
814  456 

907  228 
953  614 
976  807 
988  403 
994  201 
497  100 
248  550 
624  275 
312  137 
156  068 
578  034 
789  017 
894  508 
947  254 
473  627 
236  813 


25 
625 
312  5 
156  25 
078  125 
039  062 
519  531 
759  765 
379  882 
689  941 
844  970 
422  485 
711  242 
355  621 
677  810 
338  905 
169  452 
084  726 
042  363 
021  181 
510  590 
755  295 
377  647 
183  823 
094  411 
54  7  205 
773  602 
886  801 
443  400 
221  700 
610  850 
805  425 
402  712 
201  356 
600  678 
300  339 
150  169 
575  084 


5 
25 
625 
812  5 
406  25 
703  125 
351  562 
675  781 
337  890 
668  945 
334  472 
667  236 
333  618 
166  809 
583  404 
791  702 
395  851 
697  925 
848  962 
924  481 
962  240 
981  120 
490  560 
745  280 
372  640 
186  320 
093  160 
546  580 
273  290 
136  645 
068  322 
534  161 
767  080 


5 

25 
625 
312  5 
656  25 
328  125 
164  062 
082  031 
541  015 
270  507 
135  253 
567  626 
783  813 
391  906 
695  953 
347  976 
173  988 
086  994 
043  497 
021  748 
010  874 
005  437 
002  718 
001  359 
500  679 
250  339 
625  169 


5 

25 
625 
812  5 
906  25 
953  125 
476  562 
738  281 
369  140 
684  570 
342  285 
171  142 
085  571 
542  785 
271  392 
135  696 
567  848 
283  924 
641  962 
820  981 
910  490 


5 

25 

625 

312  5 

156  25 

578  125 

289  062  5 

644  531  25 

822  265  625 

411  132  312  5 

205  566  406  25 

102  783  203  125 

051  391  601  562  5 

025  695  800  781  25 

512  847  900  390  625 
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Debugging  a  Program 


debug  is  a  program  that  accepts  your  program  as  input  and  allows  you 
to  examine,  change,  add,  delete,  and  execute  lines.  It  is  a  handy  tool  to 
use  when  a  program  is  not  working  properly,  debug  allows  you  to  single 
step  through  a  program.  In  other  words,  you  can  examine  each  line,  as 
well  as  other  locations,  before  executing  it.  You  can  also  reexamine  any 
location  after  executing  a  line  to  see  what  effect  the  new  line  has  had.  To 
acquaint  you  with  debug  (or  DDT),  we  will  use  the  following  program  in 
the  examples  in  this  chapter. 

TITLE  TESTDEBUG 
SEARCH  MONSYM 
NUMB:  123a 
4321 

STRING:  ASCIZ/ABC/ 
LETTER:    " A " 

32  .  .14 

START:      MOVE   If    [POINT  7i  STRING] 

PS0UT2 

ADD    1  ,  NUMB 

MOVEM    1  .2 
DONE:  HALTFI 

END  START 
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C.l     SETTING  UP  DDT 


You  can  initiate  the  debugging  facilities  at  TOPS-20  with  the  command 

@DEBUG   pro*  ramnane • MAC 

The  system  will  respond  with 

CLINK:  loading] 
[LNKDEB  DDT  execution] 
DDT 

There  is  need  no  special  prompt  for  ddt  other  than  the  cursor  position 
indicator.  The  computer  loads  the  ddt  program  into  memory  and  places 
the  program  to  be  debugged  in  the  memory  locations  following  the  ddt 
program.  The  starting  location  for  your  program  is  .jbda  (the  leading  dot 
is  part  of  the  address),  ddt  uses  this  symbol  to  identify  some  locations 
within  your  program.  To  examine  a  location,  you  must  type  the  location 
value,  either  its  numerical  address  or  symbolic  name,  followed  by  a  slash 
(/).  The  system  will  then  tab  once,  display  the  contents  of  the  location, 
tab  once  again,  and  then  wait  for  your  next  instruction.  For  example, 

NUMB/       123^         .  !   /   opens   a  location 

numb  is  underlined  here  to  indicate  the  part  that  you  type;  the  computer 
types  the  rest.  The  arrow  indicates  the  cursor's  position.  (Underlining 
and  arrows  will  continue  to  have  these  meanings  in  the  examples  that 
follow.)  You  can  now  close  the  location  with  one  of  the  following  closing 
commands:  CR,  carriage  return;  lf,  line  feed;  circumflex  O,  tab,  or  back 
slash  (\).  Typing  only  one  of  these  commands  will  not  change  the  contents 
of  the  location.  In  closing  a  location,  CR  will  echo  to  your  terminal,  and 
ddt  will  then  wait  for  your  next  instruction.  Remember  you  will  receive 
no  prompt.  LF  will  close  the  present  location,  open  the  next  location,  and 
display  its  contents.  A  circumflex  will  close  the  present  location,  open  the 
previous  location,  and  show  its  contents.  For  example, 


.jbda  + 1/  4321    "    ;   closes,  then  opens  previous  location 

.JBDA/       1234  t 

(A  circled  element  indicates  a  key  on  the  keyboard.)  A  tab  or  back  slash 
will  open  the  location  addressed  by  bits  18  to  35  of  the  present  opened 


;  LF  closes,  then  opens  next  location 
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location.  This  command  allows  you  to  see  the  effects  of  direct  addressing 
but  not  indexed  nor  indirect  addressing.  The  difference  between  the  tab 
and  the  back  slash  is  that  tab  moves  the  DDT  program  counter  to  the 
opened  location,  while  the  back  slash  leaves  the  DDT  PC  at  the  location  of 
the  first  back  slash.  The  dot  symbol  indicates  the  present  value  of  the  DDT 
PC. 

The  examples  below  demonstrate  the  use  of  tab,  back  slash,  and  dot. 

start  +  21  add  i,  .jbda  (tab)        ;TAB  opens  operand  location 
.jbda/     1234  1234  ;  ./  opens  present  location 

or 

START  +  2/    ADD  1,  .JBDA  Y\ 


.JBDA/       1234         Y\       ADD  1,  .JBDA 

The  operand  of  the  first  instruction  in  debug  (the  contents  of  start) 
is  a  literal.  If  you  open  start,  the  computer  will  respond  as  follows. 

START /   MOVE    li  D0NE-£+l 

The  last  line  in  the  program  is  done.  Because  the  literal  pool  begins 
after  the  last  fine,  DONE£  + 1  is  the  operand  in  the  location  start,  ddt 
treats  program  labels  as  created  symbols;  thus,  program  labels  have  trail- 
ing £'s. 

To  change  a  value  of  a  location,  open  the  location  and  then  type  the  new 
contents.  You  can  then  issue  any  of  the  closing  commands.  For  example, 

NUMB/       1234       456  (CR) 
NUMB/  456 

ddt  does  not  change  values  permanently.  They  change  only  while  the 
program  is  in  ddt.  If  the  change  is  to  be  permanent,  you  must  use  the 
editor. 

If  ddt  does  not  understand  your  request — for  example,  you  try  to  open 
a  location  not  available  to  you  or  type  an  incorrect  command  symbol — it 
will  respond  with  the  letter  U  (unrecognized)  and  wait  for  your  next  request. 


C.2    BREAKPOINTS  AND  EXECUTION  COMMANDS 

The  real  power  of  ddt  is  its  ability  to  stop  the  execution  of  a  program  at 
almost  any  line  so  that  you  can  examine  and/or  change  the  contents  of 
locations,  add  or  delete  statements,  and  then  continue  with  the  program. 
A  breakpoint  (B)  will  stop  the  program  for  you.  You  can  set  it  at  a  location 
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by  typing  the  name  of  the  location,  pressing  the  escape  key  (it  echoes  as 
a  dollar  sign),  and  then  typing  B  (no  spaces).  The  system  will  respond 
with  a  tab. 

location  (esc)  B      ;b  sets  a  breakpoint 

Typically  you  will  set  a  breakpoint  at  the  beginning  of  a  program.  The 
system  will  handle  up  to  eight  active  breakpoints  at  a  time. 

start  (esc)  b      DONE  (esc)  B  | 

ddt  refers  to  the  breakpoints  as  IB,  2B,...8B  and  assigns  these  numbers 
in  the  order  in  which  they  were  set.  To  see  the  Nth  breakpoint,  you  must 
press  the  escape  key  N  B/  (no  spaces). 

(esc)lB/     start     ;show  first  breakpoint 

To  remove  the  Nth  breakpoint,  type  in  "0  escape  key  N  B"  (no  spaces). 
The  example  below  will  remove  the  breakpoint  at  done. 

0(esc)2B  ;remove  second  breakpoint 

You  cannot  set  breakpoints  in  the  middle  of  an  effective  address  calcula- 
tion, nor  can  you  set  a  breakpoint  at  here. 

JRST  0HERE 

♦    *  ♦ 

HERE:  THERE 
THERE: 

Once  the  breakpoints  are  set,  you  can  run  the  program  by  typing  in  the 
location  of  the  line  to  be  executed,  then  the  escape  key,  and  finally  the 
letter  G  (no  spaces). 

location  (esc)  G      jresume  execution  at  location 

The  system  will  execute  the  fine  at  location  and  the  following  lines  until 
it  finds  a  breakpoint.  It  will  not  execute  the  line  at  the  breakpoint,  and  if 
you  do  not  specify  a  location,  such  as  esc  G,  it  will  begin  at  the  first  line 
of  the  program.  Once  at  a  breakpoint,  you  can  resume  execution  with 
either  an  escape  X  or  an  escape  P.  Escape  X  will  simply  execute  the  next 
line  via  single  stepping;  if  you  want  to  execute  more  than  one  line,  use 

N  (esc)  X  jexecute  N  lines 

(no  spaces)  where  N  is  the  number  of  octal  fines.  If  the  system  encounters 
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a  breakpoint  within  the  N  lines,  it  will  not  stop.  It  will  only  stop  at  the 
end  of  the  N  lines.  To  proceed  to  the  next  breakpoint,  type  escape  P. 

(esc)  P  jproceed  until  next  breakpoint 


C.3    CHANGING  OUTPUT  FORMAT 

The  default  output  mode  is  the  symbolic  mode,  which  translates  each 
machine  word  as  "opcode  ac,  operand."  To  see  the  machine  code  value  of 
an  opened  location,  type  an  equal  sign. 

START  +  2/       ADD  1,  .JBDA    ^270040,,  140 

To  go  from  machine  code  to  symbols,  use  the  underscore  key  (_);  on  some 
terminals,  this  key  may  be  a  back  arrow. 

START  +  2/       ADD  1,  JBDA    ^270040,, 140_    ADD  1,  .JBDA 

Of  course,  once  the  value  is  opened,  you  can  change  it  by  typing  either 
symbolic  or  machine  code. 

START  +  2/       ADD  1,  .JBDA       ADDI  1,  NUMB  (CR) 
J    ADDI  1,  NUMB       270040,,  140    -ADD  1,  .JBDA 

To  display  the  right  half  of  a  location  in  numerical  form,  type  escape  A 
(address). 

START  +  21    ADD  1,  .JBDA       (eic)   AJ       ADD  1,  140  (lf) 
150/    MOVEM  1,2 

Note  that  escape  A  prints  locations  in  their  numerical  form  (150/).  To 
change  back  to  the  usual  form,  type  escape  R.  Escape  A  and  escape  R 
are  subforms  of  escape  S.  The  normal  mode  is  "escape  S  escape  R."  The 
letters  C,  F,  T,  H,  or  R  preceded  by  the  escape  key  will  enable  you  to  use 
other  output  modes.  (If  you  are  only  changing  a  mode,  you  will  want  to 
type  two  escape  keys  followed  by  a  letter,  as  in  (esc)  (esc)  C).  The  C 
mode  (code)  will  select  machine  code  as  the  output  form. 

START  +  2/   ADD  1,  .JBDA       (eic)  CJ   270040,,  140  (LF) 
START +  3/    202040„2_    MOVEM  1,2     (eic)  S   (eic)  R 

If  you  open  location  string  in  the  normal  mode,  the  output  will  be 
STRING/       ANDM   1.  300000(10) 
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by  typing  the  name  of  the  location,  pressing  the  escape  key  (it  echoes  as 
a  dollar  sign),  and  then  typing  B  (no  spaces).  The  system  will  respond 
with  a  tab. 

location  (esc)B      ;b  sets  a  breakpoint 

Typically  you  will  set  a  breakpoint  at  the  beginning  of  a  program.  The 
system  will  handle  up  to  eight  active  breakpoints  at  a  time. 

START(esc)B      DONE  (esc)  B  f 

ddt  refers  to  the  breakpoints  as  IB,  2B,...8B  and  assigns  these  numbers 
in  the  order  in  which  they  were  set.  To  see  the  Mh  breakpoint,  you  must 
press  the  escape  key  N  B/  (no  spaces). 

(esc)lB/     start     ;show  first  breakpoint 

To  remove  the  Mh  breakpoint,  type  in  "0  escape  key  N  B"  (no  spaces). 
The  example  below  will  remove  the  breakpoint  at  done. 

0(esc)2B  ;remove  second  breakpoint 

You  cannot  set  breakpoints  in  the  middle  of  an  effective  address  calcula- 
tion, nor  can  you  set  a  breakpoint  at  here. 

JRST  0HERE 

»    *  * 

HERE:  THERE 
THERE: 


Once  the  breakpoints  are  set,  you  can  run  the  program  by  typing  in  the 
location  of  the  line  to  be  executed,  then  the  escape  key,  and  finally  the 
letter  G  (no  spaces). 

location  (esc)  G      ;resume  execution  at  location 

The  system  will  execute  the  line  at  location  and  the  following  lines  until 
it  finds  a  breakpoint.  It  will  not  execute  the  line  at  the  breakpoint,  and  if 
you  do  not  specify  a  location,  such  as  esc  G,  it  will  begin  at  the  first  line 
of  the  program.  Once  at  a  breakpoint,  you  can  resume  execution  with 
either  an  escape  X  or  an  escape  P.  Escape  X  will  simply  execute  the  next 
line  via  single  stepping;  if  you  want  to  execute  more  than  one  line,  use 

N  (esc)  X  jexecute  N  lines 

(no  spaces)  where  N  is  the  number  of  octal  lines.  If  the  system  encounters 
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a  breakpoint  within  the  N  lines,  it  wall  not  stop.  It  will  only  stop  at  the 
end  of  the  N  lines.  To  proceed  to  the  next  breakpoint,  type  escape  P. 

(esc)  P  jproceed  until  next  breakpoint 


C.3    CHANGING  OUTPUT  FORMAT 

The  default  output  mode  is  the  symbolic  mode,  which  translates  each 
machine  word  as  "opcode  ac,  operand."  To  see  the  machine  code  value  of 
an  opened  location,  type  an  equal  sign. 

START  +  21       ADD  1.  .JBDA    ^270040,, 140 

To  go  from  machine  code  to  symbols,  use  the  underscore  key  (_);  on  some 
terminals,  this  key  may  be  a  back  arrow. 

START  +  2/       ADD  1,  .JBDA    _^270040„  140_    ADD  1,  .JBDA 

Of  course,  once  the  value  is  opened,  you  can  change  it  by  typing  either 
symbolic  or  machine  code. 

START  +  21       ADD  1,  .JBDA       ADDI  1,  NUMB  (CR) 
J    ADDI  1,  NUMB       270040,,  140     -ADD  1,  .JBDA 

To  display  the  right  half  of  a  location  in  numerical  form,  type  escape  A 
(address). 

START  +  21    ADD  1,  .JBDA       (esc)   AJ       ADD  1,  140  (lf) 
150/    MOVEM  1,2 

Note  that  escape  A  prints  locations  in  their  numerical  form  (150/).  To 
change  back  to  the  usual  form,  type  escape  R.  Escape  A  and  escape  R 
are  subforms  of  escape  S.  The  normal  mode  is  "escape  S  escape  R."  The 
letters  C,  F,  T,  H,  or  R  preceded  by  the  escape  key  will  enable  you  to  use 
other  output  modes.  (If  you  are  only  changing  a  mode,  you  will  want  to 
type  two  escape  keys  followed  by  a  letter,  as  in  (esc)  (esc)  C).  The  C 
mode  (code)  will  select  machine  code  as  the  output  form. 

START  +  21    ADD  1,  .JBDA       (esc)  CJ    270040,,  140  (LF) 
START +  3/    202040„2_    MOVEM  1,2     (esc)  S   (esc)  R 

If  you  open  location  string  in  the  normal  mode,  the  output  will  be 


STRING/       ANDM   1.  300000(10) 
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because  the  location  string  contains  ASCII  and  not  opcode  ac,  operand. 
Use  the  T  (text)  mode  to  read  ASCII.  Reopening  string  in  the  T  mode 
will  yield  the  following. 

(eSC)  TV    ABC    START  +  2/  /B"@"@0 

The  T  mode  does  not  apply  for  the  normal  form.  To  see  the  numeric  code 
of  a  location  in  another  base,  type  escape  N  0,  where  N  is  a  decimal 
number  from  2  to  36.  This  command  is  handy  for  unpacking  locations. 

(esc)  T  string/  ABC  (esc)  80./  101,102,103,0,0,0 

If  a  location  contains  a  floating  point  value,  you  should  type  the  location 
contents  in  the  F  mode.  To  display  the  contents  of  a  location  in  half-word 
format,  use  the  H  mode. 


C.4    INPUT  MODES 

To  input  new  values,  simply  open  a  location  and  type  in  the  new  contents. 
The  only  acceptable  input  radix  is  octal  (except  for  the  single  digits  8  and 
9).  Fix  point  and  exponent  notation  is  acceptable.  To  replace  a  packed 
ASCII  string,  use  a  double  quote  and  delimit  the  replacing  string. 

STRING/    ABC    "/CPE/  (CR) 
J  CDE 

Double  commas  will  supply  half  words. 

LETTER -I- 1/32„145,,  1  (CR) 
J  5„1 

You  can  add  symbols  to  the  symbol  table  by  using 
value  <  symbol:  jadding  a  symbol 

as  in  this  example: 

3<AC: 


which  places  ac  in  the  symbol  table  and  assigns  it  the  value  3.  To  place  a 
label  at  a  location,  open  the  location  and  then  type 

label: 

For  example, 

START  +  2/       ADD  1,  NUMB  SHOW: 
SHOW/   ADD  1,  NUMB 
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You  can  add  instructions  to  the  end  of  a  program  by  opening  the  last  line 
(pat../)  and  then  typing  in  the  desired  line.  To  remove  symbols  from  the 
symbol  table,  use 

symbol  (esc)  K  jremoving  a  symbol 
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APPENDIX 

D 


Fortran  and  Macro 


This  appendix  discusses  how  you  can  move  back  and  forth  between  For- 
tran and  macro  subroutines.  Often  this  method  is  easier  than  rewriting 
a  long  special  routine  that  you  will  rarely  need.  For  example,  if  you  need 
to  take  the  square  root  of  a  number  while  in  a  MACRO  program,  you  can 
leave  macro,  use  Fortran's  square  root  operation,  and  return  to  macro 
with  the  answer.  Alternatively,  if  you  need  a  fancy  I/O  routine  while  in  a 
Fortran  program,  you  can  temporarily  use  macro.  For  instance,  if  you 
do  not  want  the  Fortran  read  to  stop  a  program  until  it  is  satisfied,  you 
can  leave  Fortran,  use  macro's  rdtty%  with  rd%rie  to  check  the  input 
buffer,  and  then  return  to  Fortran. 

D.l     MACRO  CALLING  FORTRAN 

To  communicate  with  FORTRAN  (or  any  other  language),  you  must  under- 
stand how  Fortran  does  calls  and  returns  and  passes  parameters  to 
subroutines,  pushj/popj,  which  use  accumulator  17  (octal),  will  call/return 
a  Fortran  subroutine.  If  the  call  originates  in  a  Fortran  program,  For- 
tran will  set  up  the  necessary  stack.  If  the  call  originates  in  macro,  you 


must  set  up  the  stack.  Accumulator  16  (octal)  handles  parameters.  It 
contains  the  address  of  a  table  containing  the  list  of  addresses  storing  the 
values  of  the  parameters.  A  great  deal  of  indirect  addressing  takes  place. 
Consider  the  Fortran  fragment. 


A=l 
B  =  2 
C  =  3 

•    •  • 

CALL  SUB    (A  »B  »C  ) 


Fortran  handles  the  following  part  of  the  program. 


-3  i  >0  inumber  of  parameters 

HERE:   A  itable   of  parameter 

B  ilocations 
C 


A  : 

1 

iualue   of  parameters 

B: 

2 

C  : 

3 

MOVEI    lGi  HERE     itable  address 
PUSHJ   17»   SUB        iJump   to  subroutine 

♦    »  • 


Once  in  the  subroutine,  the  system  references  the  parameter  values  by 
using  operands 


@ ( 1 6 )  ?  t  h  e   value   of  A 

@  1  ( 1 6  )  5B 
@2(16)  ;c 


Below  is  a  Fortran  program  that  uses  a  subroutine  to  add  two  numbers. 


PROGRAM  FOR. USED. BY. MAC 
IMPLICIT   INTEGER  (A-Z) 
WRITE(5  .10) 
10  FORMAT < IX      IN  FORTRAN') 

!    any thinS 
STOP 
END 

SUBROUTINE  ADDI(A»B»C) 

IMPLICIT    I NTEGER ( A - Z ) 

C  =  A  +  B 

RETURN 

END 
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If  you  want  a  macro  program  to  use  the  subroutine  addi,  you  must  set 
up  the  necessary  macro  address  table  and  stack. 


ARG  i 


STACK : 
START i 


A: 
B  : 
C: 


TITLE  MAC. CALLING. FOR 

SEARCH  MONSYM . MYSTUF 

EXTERNAL  ADDI 

-3  .  .0 

A 

B 

C 

DEPTH=15 
BLOCK  DEPTH 
RESET 

MOVE   17.CI0WD  DEPTH  >STACK ] 

MOVEI    1 G  t ARG 

PUSHJ  17,ADDI 

PRINT   IN  MAC  FROM  FORTRAN 

CRLF 

OUTPUT  RESULT  .<A  ,6  ,C> 

HALTFX 

3 

a 

Z 

END  START 


ithis  macro  calls  ADDI 
jin  FOR. USED. BY. MAC 


{address  table 


icall  ADDI 


The  linker  must  be  past  all  files  and  since  both  files  are  programs  .require 
can  not  be  used,  rather, 

EX  FORTRANPROGRAM  »  MACROPROGRAM 


The  order  in  which  the  files  appear  after  ex  is  the  same  as  that  established 
in  Chapter  8. 


D.2    FORTRAN  CALLING  MACRO 

The  following  example  is  a  Fortran  program  calling  a  macro  subroutine, 
I  add.  (We  could  have  used  a  third  parameter,  C,  as  well.) 

PROGRAM  FOR. CALL. MAC 
IMPLICIT   INTEGER  (A-Z) 
WRITE  (5.10) 
10  FORMAT( IX  »  'STARTING   IN  FORTRAN') 

A=2  5set   up  parameter 

B  =  3  Values 

CALL   I  ADD ( A  »B )  >call  subroutine 

WRITE(5  >*)A  iB 

STOP 

END 


Since  Fortran  is  doing  the  calling,  Fortran  must  set  up  the  stack;  it 
also  sets  up  the  parameters  via  accumulator  16.  MACRO  must  then  use 
accumulator  16  to  set  the  parameters. 


I  ADD  : 


TITLE  MAC. USED. BY. FOR 
SEARCH  MONSYM 
ENTRY    I  ADD 
MOVE   1 >@ ( 1 6 ) 
ADD   1 »@1 ( 16) 
MOVEM   1  i@( IS) 


POPJ  17 

HALTFZ 

END 


iset   first  parameter 
iadd   to   second  parameter 
» put    result  into 
ifirst  parameter 
!  return 


Since  the  macro  file  is  a  library  file  rather  than  a  program,  the  order  in 
which  the  files  pass  to  the  linker  is  not  important.  Either  of  the  following 
approaches  will  work. 


EX  FORTRANPROGRAM .MACROFILE 


or 


EX  MACROFILE,  FORTRANPROGRAM 
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APPENDIX 

E 


Pascal  and  Macro 


In  pascal,  pushj/popj  does  a  procedure  call/return  using  accumulator  17 
(octal).  If  the  call  originates  in  a  pascal  program,  pascal  will  set  up  the 
necessary  stack.  If  the  call  originates  in  macro,  you  must  set  up  the  stack. 
Accumulators  2  through  5  handle  parameters  (at  least  in  the  Hedrick 
version  of  pascal).  What  is  placed  in  these  accumulators  is  determined  as 
follows: 

by  value,  one  word — the  value  in  one  accumulator 

by  value,  two  words — the  value  in  two  successive  accumulators 

by  value,  more  than  two  words — address  of  object  in  one  accumulator 

by  reference  (VAR) — address  of  object  in  one  accumulator. 

An  externally  called  macro  routine  may  use  all  the  accumulators,  but 
the  use  of  accumulators  15,  16  and  17  (octal)  has  restrictions.  You  must 
preserve  the  contents  of  these  accumulators,  for  example.  The  restriction 
on  15  is  a  holdover  for  tops-10.  Accumulator  16  is  a  pointer  (frame  pointer) 
to  the  local  variables  of  the  calling  routine.  The  exact  offset  value  from 
accumulator  16  varies;  and  if  you  need  it,  you  can  examine  the  object  code 


(use  the  pascal  call  at  tops-20,  similar  to  macro,  with  the  switch/object). 
As  you  know,  accumulator  17  is  the  stack,  which  you  can  use  as  long  as 
you  accompany  each  pushj  with  a  popj. 

E  l     MACRO  CALLING  PASCAL 

Below  is  a  pascal  procedure  used  by  a  macro  program.  This  procedure 
is  in  a  file  called  pascallib.pas.  The  procedure  will  add  the  two  value 
parameters  firstnum  and  secondnum  and  place  their  sum  in  the  vari- 
able parameter  answer.  You  must  use  the  compiler  switch  (*$m-*)  to 
signify  that  no  main  program  exists. 

(*$m-*#)  (#  no   main  *) 

procedure   pasadd(uar  answer:  integer? 

f i r s t n urn > s e c o n d n um :  integer)! 

begin 

answer:=fi  rstnum+secondnumi 
end  . 

If  you  wish  a  macro  program  to  use  the  procedure  "pasadd,"  you  must  set 
up  the  stack  and  place  the  necessary  parameter  information  in  the  accu- 
mulators. "Pasadd"  has  three  parameters,  a  variable  parameter  and  two 
value  parameters.  Since  the  first  parameter  (answer)  is  a  variable 
parameter,  accumulator  2  should  contain  its  address.  In  this  example, 
however,  because  the  first  parameter  is  not  passed  to  the  procedure  (it 
only  comes  from  the  procedure),  you  need  not  set  up  accumulator  2.  Because 
the  second  (firstnum)  and  third  (secondnum)  parameters  are  value 
parameters,  accumulators  3  and  4  must  contain  the  numbers  to  be  added 
(not  their  addresses).  A  macro  program  that  uses  pasadd  appears  below. 
(For  illustration  only,  we  move  firstnum  (a  =  20)  immediately  into  ac  3, 
while  directly  addressing  secondnum  (b  =  30)  into  ac  4.) 


MOVEI    1  .    . PRIOU 
MOVEI   3.  12 
NOUTZ 

z 

HALTFX 
END  START 


STACK : 
B : 

START: 


TITLE  MAC. CALLING. PASCAL 

SEARCH  MONSYM 

EXTERN  PASADD 

DEPTH= 10 

BLOCK  DEPTH 

"D30 

RESET* 

MOVE   17.    [IOWD  DEPTH.  STACK] 

MOVEI   3»  "D20 

MOVE  a  ,  B 

PUSHJ   17.  PASADD 


»   ANS   IN  AC  2 
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(After  the  call,  the  answer,  not  its  address,  is  in  ac  2.)  To  execute  this 
program,  the  linker  must  be  past  both  files. 

EX  pascal  1 ib  >   ma c p r o S r am 

Because  the  pascal  procedure  is  not  in  a  program  in  this  example  (that 
is,  we  had  no  main  program),  we  could  have  used  a  .require  pascallib. 
Once  the  system  has  compiled  the  pascallib  and  included  the  .require 
statement,  the  following  line  will  execute  the  program. 

EX  MACPROGRAM 

E.2    PASCAL  CALLING  MACRO 

The  following  pascal  program  calls  a  macro  subroutine. 

program  pas c a  1 . c a  1 1 . mac 
va  r 

a  » b » c : inters  r  i 
procedure  macadd(uar  answer: 

f  i  r  s  t  n  um » 
secondnum: 

extern  » 

b  e  *  i  n 
a: =20  5 
b : =30  i 

nacadd ( c  f a  i b ) S 
end. 

Since  pascal  is  doing  the  calling,  it  sets  up  the  stack,  pascal  will  also 
set  up  the  accumulators  for  passing  the  parameters.  Accumulators  3  and 
4  will  have  the  value,  and  accumulator  2  will  have  the  address  for  the 
answer. 

TITLE  MAC. USED. BY. PASCAL 
ENTRY  MACADD 
MACADD:    ADD  3.  a 

MOVEM  3.  @2 
POPJ  17. 
END 


You  can  execute  the  pascal  program  using  either  of  the  following  lines. 
EX   PASCALPROGRAM  >  MACROLIB 


184      APPENDIX  E 


inte  se  r  ! 
inte  se  r )  5 


or 


EX  MACROL I B  >  PASCALPROGRAM 

Once  you  know  the  pascal-macro  connection,  you  can  find  the  memory 
address  storing  a  pascal  variable  or,  conversely,  place  a  pascal  variable 
in  a  specified  memory  location. 
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APPENDIX 

F 


Real  Numbers 


F.l    REPRESENTATIONS  OF  REAL  NUMBERS 

You  are  undoubtedly  familiar  with  real  numbers.  For  our  purposes  here, 
let's  accept  the  following  definition:  A  real  number  is  a  number  that  con- 
tains a  decimal  point.  You  can  represent  a  decimal  number  in  two  ways — 
using  a  fixed  point  or  a  floating  point.  Consider  a  computer  word  that  can 
represent  a  six-place,  base-10  number  (plus  a  sign  bit).  You  can  perma- 
nently fix  the  decimal  point  between  the  third  and  fourth  decimal  digits, 
for  instance.  Thus,  you  make  0.001  the  smallest  interval  between  two 
numbers,  and  you  reduce  the  size  of  the  largest  number  the  computer 
word  can  represent.  In  other  words,  by  fixing  the  decimal  point,  you 
reduce  the  range  of  numbers  represented  by  the  computer  word  (from 
-999999/999999  to  -999.999/999.999)  but  increase  the  resolution  error 
(the  smallest  difference  between  two  numbers)  from  1  to  0.001.  The  res- 
olution is  still  an  absolute  (fixed)  error. 

Knowing  that  the  decimal  point  is  always  at  a  specific  spot  helps  in  the 
bookkeeping  of  decimal  arithmetic,  but  the  reduced  range  can  cause  prob- 
lems. For  instance,  if  you  wish  to  multiply,  the  six-decimal  digit  word  we 


are  using  as  an  example  will  run  into  overflow  problems  when  multiplying 
numbers  larger  than  33.622. 

Floating-point  representation  is  very  similar  to  scientific  notation  in 
that  the  decimal  point  shifts  (floats)  to  the  left  or  right  so  that  numbers 
have  a  consistent  form  (decimal  numbers  always  look  like  they  are  in  the 
range  0  to  1).  We  need  to  use  some  of  the  digits  in  the  computer  word  to 
keep  track  of  the  decimal  position.  If  we  set  aside  two  decimal  digits,  the 
range  is  over  100  powers  of  10.  Again,  however,  we  increase  the  range 
represented  by  a  word  at  the  expense  of  resolution.  If  we  use  two  digits 
in  a  six-decimal  digit  word  for  the  decimal  position,  we  have  only  four 
places  left  to  represent  the  digits  in  the  number  (these  digits  make  up  the 
mantissa).  In  the  process,  we  must  drop  lesser  significant  digits,  leading 
to  a  relative  error.  Thus,  the  difference  between  sequential  numbers  depends 
on  the  floating  position  of  the  decimal  point.  (If  the  power  of  10  were  6  or 
7,  and  the  mantissa  had  four  digits,  the  difference  between  neighboring 
numbers  would  then  be  100,  or  1000).  With  the  extended  range  allowed 
by  a  floating  decimal  point,  overflow  does  not  arise  as  frequently,  but 
setting  up  the  representation  (doing  simple  addition)  becomes  a  challenge. 
(Note:  Those  readers  interested  primarily  in  how  the  decsystem-20  han- 
dles real  numbers  can  skip  the  next  two  sections  in  this  appendix.) 

F.2    FIXED  POINT 

Though  the  value  may  change,  the  digits  in  the  answers  of  mathematical 
operations  do  not  change  if  a  decimal  point  is  present. 

123.45  12345  12.345 

+  678.90  +  67890  +  67.890 


802.35  80235  80.235 

Therefore,  all  the  arithmetic  operations  we  have  discussed  so  far  (though 
they  have  used  only  integers)  can  use  fixed-point  operations.  Because 
decsystem-20  macro  does  not  have  directives  and  monitor  calls  for  fixed- 
point  representation,  you  must  set  up  the  representations,  choose  the 
location  of  the  decimal  point,  and  set  up  I/O  calls.  The  decsystem-20  word 
is  large  enough  to  store  both  the  whole  part  and  the  fractional  part  of  a 
real  number  in  a  single  word.  For  instance,  the  whole  part  of  a  real  number 
will  fit  in  the  left  half  of  a  word,  with  the  fractional  part  in  the  right  half 
of  the  same  word.  For  our  purposes  here,  we  will  use  one  word  for  the 
whole  part  and  another  word  for  the  fractional  part.  (Double-word  rep- 
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resentation  allows  us  to  handle  a  very  large  number — that  is,  a  number 
that  will  not  fit  into  one  word.)  We  can  then  present  a  constant,  such  as 
123.45,  in  this  way. 


But  this  method  cannot  handle  123.045  because  it  cannot  handle  the  lead- 
ing 0.  It  requires  us  to  express  all  fractions  in  the  same  number  of  digits, 
shifting  the  problem  from  leading  zeros  to  trailing  zeros.  (This  problem 
is  not  unique  to  fixed-point  representation,  nor  to  double-word  represen- 
tation; it  is  a  consequence  of  working  with  real  numbers.)  If  we  want  the 
precision  of  three  decimal  places,  we  can  code  123.45  as 

uhl:  123 
frl:  450 

And  we  can  code  123.045  as 

wh2:  123 
fr2:  045 

(The  leading  zero  is  not  necessary.)  To  add  two  fixed-point  numbers,  using 
two-word  representation,  you  must  check  for  a  carry  from  the  fractional 
part  to  the  whole  part.  (This  step  is  not  necessary  with  one-word  repre- 
sentation.) The  number  of  digits  in  the  fractional  part  will  determine  the 
presence  of  a  carry.  For  example  (assuming  three  fractional  decimal  digits), 


wh  1 : 
f  rl : 


123 
45 


0NE=1000 


Uhree-disit  decimal 


MOVE    1  ,  WH1 
ADD   1 f  WH2 
MOVE  2.  FR1 
ADD  2  ,  FR2 
CAIL  2  .  ONE 
JRST  OK 


Scarry? 

!  n  o  carry 

Ires  i   adjust   f  rac 

iadd   the  carry 


SUBI  2.  ONE 
ADD  I    1  .  1 


OK  : 


t    *  • 


To  multiply  two  fixed-point  numbers,  you  must  use  the  distribution  rules 
of  multiplication. 


(whl  +  frl)*(wh2  +  fr2)  =  wh3  +  fr3 
where 

wh3  =  whl*wh2  +  quotient  of  (whl*fr2  +  wh2*frl)/one 
fr3  =  remainder  of  (whl*fr2  +  wh2*frl)/one 
+  quotient  of  (frl*fr2)/one 

The  next  problem  is  to  accept  a  fixed-point  number  from  the  terminal. 
Typing  a  nondigit  will  terminate  a  nin%.  Therefore,  you  can  use  a  nin%, 
terminated  by  a  decimal  point,  to  get  the  whole  part  of  a  fixed-point 
number.  A  nin%  will  not  obtain  the  fractional  part  because  it  ignores 
leading  zeros  (the  0.45,  0.045  problem).  You  must  use  pbin?<-  plus  a  coun- 
ter to  count  the  number  of  digits  to  obtain  the  fractional  part.  The  system 
will  subtract  the  number  of  digits  typed  from  the  number  of  accuracy 
digits,  which  will  yield  the  number  of  zeros  to  be  added  to  the  end  of  the 
fractional  part  of  the  real  number.  For  example,  with  three  accuracy  digits 
(as  in  the  above  example)  and  a  fractional  part  of  45  with  two  digits 
counted,  the  system  will  store  450.  If  the  fractional  part  were  45  with 
three  digits  counted  (045),  it  would  store  45. 


ACCNUM=3 


iacceptins  a  fixed-point  number 
iwhole  part 


MOVE  I    1  .    . PR  I  I N 
MOVEI   3.  12 
NINZ 
Z 

MOVEM  2,  WH  issue  whole  part 

SETZB  2  .  3 

! f  r ac  t  i  on  a  1  part 

IN:  PBINZ 

CAIN   1>   15  jcarriase  return 

JRST  LF  !  yes 

SUBI    li  60  isub   ascii  offset 

IMULI   2,   12  ishift  left 

ADD  2il  !  add  new  d  i  si  t 

AOS  3  icount  disit 

JRST  IN 

LF:  PBINX  iset   line  feed 

5shift   fractional   part  left 
SUB  I   3.   ACCNUM  iplaces   to   shift  left 

SHF:  A0SLE  3 

JRST  DONE 

IMULI   2»    12  iadd    trailing  zeros 

JRST  SHF 

DONE:        MOVEM  2.   FR  isave   fractional  part 


I 
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Note  that  nin%  requires  a  digit  before  the  decimal  point  (0.1  rather 
than  .1).  Note  also  that  our  example  does  not  properly  handle  negative 
numbers.  nin%  handles  the  whole  part;  extra  steps  are  necessary  for  the 
fractional  part.  (If  "wh"  is  negative,  you  must  use  a  movn  2,  2  after 
constructing  the  fractional  part.  Finally,  we  have  no  provision  to  trap  any 
fractions  with  more  digits  than  "accnum." 

F.3     FLOATING  POINT 

The  decsystem-20  has  opcodes,  assembly  directives,  and  monitor  calls 
that  handle  floating-point  numbers.  Remember  that  you  can  convert  (nor- 
malize) all  decimal  numbers  to  the  range  0  to  1  by  multiplying  them  by 
an  appropriate  power  of  10. 

12.3  0.123  x  10**2  123,  2 

0.045  0.45    x  10** -1  45,-1 

A  mantissa  (the  123  or  the  45)  and  an  exponent  (the  2  or  the  -1)  now 
represent  each  number.  The  system  can  store  the  mantissa  and  exponent 
in  specific  locations  within  a  single  word.  Since  the  mantissa  requires 
greater  resolution,  its  field  width  (number  of  digits)  is  generally  larger 
than  the  field  width  of  the  exponent.  Traditionally,  the  exponent  field  is 
to  the  left  of  the  mantissa  field — that  is,  the  computer  word  stores  (2, 
123)  rather  than  (123,  2). 

You  must  handle  two  signs — the  overall  sign  of  the  number  and  the 
sign  of  the  exponent.  You  can  treat  the  overall  sign  as  usual,  giving  it  the 
status  of  bit  0.  The  left-most  bit  in  the  exponent  field  accommodates  the 
sign  of  the  exponent  but  it  is  set  for  positive  numbers  and  cleared  for 
negative  numbers.  For  the  decsystem-20,  bit  0  is  the  sign  bit  and  the 
exponent  is  in  bits  1  to  8,  with  bit  1  the  sign  bit  for  the  exponent.  The 
mantissa  is  in  the  remaining  27  bits.  Again,  for  positive  exponents,  bit  1 
is  set.  The  binary  pattern  1000000  (octally,  200)  represents  a  0  exponent. 
The  largest  positive  exponent  is  represented  by  377.  Removing  the  200 
offset  yields  an  octal  177,  which  is  127  in  decimal.  The  most  negative 
exponent  is  represented  by  000,  which  is  200  octal  below  the  offset,  or 
- 128  decimal.  The  decsystem-20  allows  the  exponent  a  decimal  range 
of  - 128  to  +  127,  with  27  bits  for  the  mantissa.  The  resolution  is  1  bit  in 
27,  or  1  out  of  2**27,  or  1/2**27,  which  is  0.000000007. 

Below  is  an  example  of  a  program  that  accepts  decimal  digits  from  the 
terminal  and  stores  them  in  decsystem-20  format.  The  program  arbi- 
trarily designates  the  smallest  resolution,  precis,  2** -4  =  0.0625,  and 
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sets  prenum  equal  to  4.  nin%,  terminated  by  the  decimal  point,  obtains 
the  whole  part,  and  the  system  stores  it  in  ans.  The  number  of  bits  in 
the  whole  part  will  be  in  location  whlpow.  pbin%  obtains  the  fractional 
part,  which  the  system  will  store  in  frac;  it  will  store  the  number  of  bits 
in  the  fractional  part  in  frcpow.  As  with  fixed-point  representation,  you 
must  add  trailing  zeros  to  the  fractional  number  and  then  divide  it  by 
precis  to  convert  it  to  a  binary  number. 


TITLE  REALS 

SEARCH  MONSYM 

PRECIS= "D0625 

PRENUM=4 

BASEIN=12 
FRAC:  Z 
WHLPOW :  Z 
FRCPOW:  Z 

ANS  =  5 
START:  RESET* 

SETZM  WHLPOW 

SETZM  FRCPOW 

iset   whole  part 

MOVEI    It    . PRI IN 
MOVEI   3.  12 
NINX 
Z 

MOVEM  2  .  ANS 
JUMPE  2  ,  GETFRC 

iset  whlpow 

P0W2:  LSH  2,  -1 

AOS  WHLPOW 
JUMPN  2  .  P0W2 


5  Set  fraction 

SETZ  2, 
GETFRC:  PBINX 

CAIN   1  i    15  5c  r 

JRST  LF 

SUBI    1  ,  60;of f set 
IMULI   2,  BASEIN 
ADD  2  »  1 
AOS  FRCPOW 

JRST  GETFRC  iincrement  FRCPOW 

LF:  PBINZ  iset  If 

iconuert   frac   to  binary 
{calculate  number  of 
itrailins   zeros  needed 


REAL  NUMBERS  191 


JUMPE  2  >  WHLSHF 
MOVE   1  .  FRCPOW 
SUBI    1  .  PRENUM 

5  ad d   trailing  zeros 

LOOP:  IMULI   2.   BASE  I N 

AOSE  1 
JRST  LOOP 

5determine  number  of  times 
! 'precis '   is   in  number 

DIV:  IDIVI   2.  PRECIS 

CALL  3.   PRECIS/2  SroundinS 

ADD  I   2.  1 
MOVEM  2  .  FRAC 

Sac  2  now  has  binary 
!  f  rac  t  i  on 


Now  the  whole  part  is  in  "ans,"  and  the  fractional  part  is  in  "frac."  We 
must  combine  them  into  one  word.  The  fractional  part  occupies  prenum 
bits.  To  form  one  word,  we  shift  ans  to  the  right  by  prenum  and  ior  this 
with  frac.  Now  the  resultant  number  must  shift  left  so  that  the  left-most 
set  bit  is  in  bit  position  9.  If  we  have  a  nonzero  whole  part,  the  number 
must  shift  27  places  minus  prenum  minus  the  number  of  bits  in  whlpow. 
We  then  find  the  exponent  part  using  whlpow.  If  the  whole  part  is  0,  we 
must  place  the  leading  set  bit  of  the  fractional  part  in  bit  9  and  calculate 
the  number  of  leading  zeros.  To  find  the  leading  set  bit,  shift  the  fractional 
number  to  the  left  ""D36- prenum"  positions.  If  the  fractional  part  con- 
tains a  leading  1,  this  bit  will  be  in  bit  position  0,  signifying  a  negative 
number.  If  the  leading  fractional  bit  is  0,  then  bit  0  will  not  be  set,  sig- 
nifying a  positive  number.  If  the  leading  fractional  bit  is  0,  the  number 
must  shift  left  and  each  shift  must  be  counted  until  the  sign  bit  is  set.  The 
number  of  shifts  is  the  negative  exponent  power  for  the  floating-point 
base  2  representation. 

JUMPE  ANS.  LFSHF  iif  whole=0  then   shift  left 

WHLSHF:      LSH  ANS.   PRENUM  ielse   normalized   whole  part 

IOR  ANS,  2 

MOVEI   3.    " D27- PRENUM 
SUB  3.  WHLPOW 
LSH  ANS.  @3 
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ifix   exponent  part 

MOVE  2.  WHLPOW  ;if  whole=0  then  normalize 

JRST  EXP  ifractional  part 

LFSHF:        SETZ2  » 

MOVE   1  ,  FRAC 

LSH   1 .  "D36-PRENUM 
HERE:         JUMPL   li  DONE  icountinS   leading  zeros 

SOS  2 

LSH   1  ,  1 

JRST  HERE 
DONE:  MOVEI   3,  "D27-PRENUM 

SUB  3  ,  2 

MOVE  ANS  >  FRAC 

LSH  ANS.  @3 


Now  we  must  adjust  the  exponent  part  of  the  floating-point  number.  Accu- 
mulator 2  contains  the  number  of  bits  either  in  the  whole  part  or  in  the 
fractional  part.  The  system  adds  this  value  to  the  offset,  200,  and  places 
the  result  in  bits  1  to  8. 

EXP:         MOVEI    1.  200         ioffset  value 
ADD   1  ,  2 
LSH   1  i  "D27 
IOR  ANS.  1 

Now  ans  contains  the  floating-point  representation  of  the  number. 

F.4    DECSYSTEM-20  REAL  NUMBERS 

The  decsystem-20  stores  a  decimal  floating  point  number  in  a  word  using 
normalized  binary  representation.  The  system  places  the  binary  exponent 
in  bits  1  to  8.  This  number  is  offset  by  octal  200,  meaning  that  positive 
exponents  are  in  the  range  200  to  377  (decimal  0  to  127).  The  negative 
exponents  are  represented  by  177  to  0  (decimal  - 1  to  - 128).  Bit  0  is  still 
the  overall  sign  bit.  Bits  9  to  35  contain  the  normalized  binary  fraction 
(mantissa). 

Floating-Point  Word 

Bit                  |0j                  i        1-8       |                  |  9-35  , 
— r —   1    r — 

sign  200  +  exponent  mantissa 

A  decimal  point  acts  as  an  assembly  directive,  requesting  that  the  assem- 
bler convert  a  decimal  number  to  the  normalized  binary  format.  Two 
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monitor  calls  govern  I/O  of  floating-point  numbers,  flin%  and  flout%. 
To  use  a  flin%,  place  in  accumulator  1  the  source  device.  A  flin%  returns 
+  1,  +  2,  with  the  normalized  binary  number  in  ac  2.  A  flout%  uses  three 
accumulators:  Accumulator  1  contains  the  destination,  accumulator  2  con- 
tains a  normalized  floating-point  number,  and  accumulator  3  contains  a 
format  word.  You  can  use  the  simplest  format  by  setting  ac  3  to  0.  The 
floating-point  opcodes  fadr,  fsbr,  fmpr,  and  fdvr  add,  subtract,  mul- 
tiply, and  divide,  and  round  the  result.  All  these  opcodes  are  one-word 
opcodes. 


NUM : 
START: 


TITLE  REALS 
SEARCH  MONSYM 
12.34 

MOVEI    1  .    .  PRI  IN 
FLINX 
Z 

FADR  2»  NUM 
MOVEI    1  ,    . PRIOU 
SETZ  3» 
FLOUT* 
Z 

HALTFZ 
END  START 


inote   decimal  point 


5 f o  rmat 
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Accumulator,  3 

IF  THEN,  21 

Procedure,  95 

Analog  computer.  36 

Inclusive  OR,  54 

Program  counter,  96 

ASCII,  10 

Interleave,  109 

Push,  91 

Assembler.  7 

Interrupt,  141 

I/O,  9 

Iteration.  103 

JSY5,  11 

Jump.  19 

yueue,  no 

Dinars, 

Dinar \  swn.cn,  oo 

Rit  19 
Dll . 

RmQlrTu->int     1  "7*} 

DrttiApoiiii,  i  io 

Radix,  13 
Recursive,  96,  103 
Reentrant,  96 
Relative  address,  7 
Relocatable  file,  4o 

Buffer,  10 

Jump  table.  69,  100 

calculator.  Jo.  (Ill 

T  nknl  A 

L-aoei,  4 

REPEAT  L  NTIL,  £6 

Carryin.  57 

Library,  104 

Kestartaoie,  ia 

Carryout,  57 

LIFO,  91 

RIGHTt,  75 

Case!  25 

Linker,  45 

Scan,  6 
oearciung, 
aniiting,  39 
Sign  bit,  49 
Signed  number,  48 
Sorting,  94 
Source  file.  45 
otacK,  yi 

Channel.  143 
Complement.  49 

Listing  file.  45 
Literal.  77 

Concatenation.  124 

Literal  pool,  78 

Control  bit,  84 
Coroutine,  108 

Local,  105 
Location  counter,  7 

Lreateo  symooi.  iiy 
Created  variable,  78 

Logic  gate.  53 
Loop.  23 

Data  base.  65 

Machine  code,  6,  37 

Statement,  4 

Default  value  119 

Mantissa,  187 

Strinc  80 

MIDS  75 

Siihrniitinp  Qn 

UUUIUUllllCi  C'J 

Digital  computer,  36 

MONSYM,  10 

Subscript  variable,  28 

Directive.  12 

Multiplication,  59 

Symbol.  9 

Empty.  91 

Negative,  47 

Symbol  table,  2 

Equivalent.  54 

Non-executable,  6 

Token,  127 

Exclusive  or.  54 

Octal,  37 
ON'GOTO,  22 
Opcode.  4 
Operand.  4 

Top,  91 

Executable,  6 

Top  down,  95 

External,  104 
File,  129 

Translator,  2 
Truth  table,  53 

FOR  NEXT,  23 

Overflow,  48,  91 

Underflow,  91 

Full,  91 

Full  adder,  57 

Global.  108 

Packing,  62 

Panic  interrupt.  142 

Parameter  passing.  96.  98 

Universal,  126 
Unpacking,  62 
Unsign  Number,  48 

Half  adder,  57 

Polling.  143 
Pop,  91 
Precision,  51 
Priority.  142 

WHILE  DO,  23 

Half  word.  83 
Hardware.  53 

Hexidecimal.  38 

Assembly  Directives 

asciz,  16 

BLOCK,  29 
DEFINE,  115 
ENTRY,  105 

exp,  30 

EXTERN'al,  105 

IFDIF,  134 
IFIDN,  134 
INTERN'al,  108 

iowd,  92 
IRP,  122 

LALL,  118 
LIT,  78 
POINT,  72 
RADIX,  13 
REPEAT,  146 
SALL,  118 
SEARCH,  11 

TITLE,  11 

UNIVERSAL,  126 

XALL,  118 

xwd,  83 

"B,  55 
"D,  55 
0,  55 
#,  78 
',  125 
%,  119 
.,  110,  193 

.PRIIN,  14 
.PRIOU,  13 

<>,  33 
=  ,  12 
0,77 


Monitor  Calls 

AIC*.  145 

ATI-*,  145 

BIN*,  132 
BOUT*,  132 

CLOSF*,  132 

DEBRK*,  151 
DELF*,  140 
DIC*,  145 
DIR*,  145 
DTI*,  145 

EIR*,  145 

FLIN*,  194 
FLOUT*,  194 

GTJFN*,  130 
GTSTS*,  136 

HALTF*,  11 

NIN*,  14 

nout*,  13,  77 

OPENF*,  130 

PBIN*,  11 
PBOUT*,  11 
PSOUT*,  16 

RDTTY*,  78 
RESET*, 132 
RIN*,  138 
ROUT*,  138 

sir*,  145 

TIME*,  154 
TIMER*,  152 
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